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SEQ 0001 



QUICK LOOK-UP OPERATING INSTRUCTIONS 



FOR A QUICK REFERENCE* LOOK UP THE FOLLOWING SECTIONSI 

1,0 ABSTRACT 

2.0 REQUIREMENTS 

4.1 LOADING AND OPERATOR ACTION 
7.0 SWITCH OPTIONS 

FOR A MORE COMPLETE EXPLANATION REFER TO THE TABLE OF 
CONTENTS BELOW AND THE FOLLOWING DOCUMENT. 
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12.6 DRIVE RESET ROUTINE, 

12.7 TIME DELAY ROUTINE 

12.8 WAIT FOR INTERRUPT ROUTINE 

12.9 OTHER ROUTINES 

TTY HANDLER (I/0)# ERROR TYPEOUT ROUTINE 
POWER DOWN/POWER UP ROUTINE 

13,0 UNEXPECTED TIMEOUTS fc RKll INTERRUPTS 
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SEQ 0002 



1.0 



ABSTRACT 



THE RKll LOGIC TESTS CONSIST OF A SERIES OF TESTS 
AIMED AT CHECKING THE BASIC LOGIC OF THE BKU 
CONTROLLER, THIS PROGRAM IS THE SECOND PART OF THE 
TWO-PART RKll LOGIC TESTS, IT SHOULD BE NOTED THAT 
LOGIC TEST I AND LOGIC TEST II TOGETHER CONSTITUTE 
A COMPLETE PROGRAM AND BOTH OF THEM SHOULD BE RUN, 

WHEN USED IN CONJUNCTION WITH A DRIVE IT IS CAPABLE 
OF DETECTING FAULTS IN THE DRIVE ALSO, 

USED CORRECTLY THIS PROGRAM CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 



2.0 REQUIREMENTS 

2.1 EQUIPMENT 

A, PDPll WITH CONSOLE TELETYPE, 

B, 8K OF MEMORY 

C, RKlt OR RKVll CONTROLLER 

D, i-8 RK0S OR RK05F DRIVES OR THE RK0S SIMULATOR 
(DRIVE TYPES MAY BE MIXED) 

2.2 PRELIMINARY PROGRAMS 

RKll BASIC LOGIC TEST I (MD-1 1-DZRKJ) 

2.3 EXECUTION TIME 

ERROR FREE FIRST PASS ON PDPll/20 WITH CORE MEMORY 
TAKES APPROXIMATELY TWO MINUTES, CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES, 



3.0 STARTING ADDRESS 

200 FOR ANY MODE OF OPERATION. NORMAL START UP WITH 
ALL SWITCHES DOWN, 



4,0 PROGRAM CONTROL MODES & OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTll 



SEQ- 0003 



4.1 PAPER TAPE LOADING 

4.1.1 LOAD PPOGBAM INTO MEMORY USING STANDARD PROCEDURE 
FOR ,ABS TAPES, 

4.1.2 MAKE SURE THAT THF DRIVES TO BE CHECKED APE LOADED 
WITH DISKS AND ARE IN 'RUN'. 'WBT ENABLE* THEM, 
CHECK THAT 'WRT PROT' LIGHT ON THESE DRIVES IS OFE. 
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD', 

4.1.3 LOAD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC 7,0) IF TESTING ON 
SIMULATOR PUT SW<10> UP, 

PRESS START. 

4.1.5 THE PROGRAM IDENTIFIES ITSELF (NAME, MAINDEC N0)# 
THEN THE FOLLOWING QUESTION IS ASKEDt 

DRIVES TO BE TESTED? 

THE USER SHOULD TYPE IN THE DRIVE NUMBERS THAT ARE 
IN 'RUN' AND TO BE TESTED. CARRIAGE RETURN SHOULD 
TERMINATE THE STRING, IF AN RK-05F IS TO BE TESTED, 
TYPE THE SUFFIX 'F' WITH THE FIRST DRIVE OF THE PAIR. 
FOR EXAMPLE, IF DRIVES 2 AND 3 APE ON AN RK-05F, TYPE 
ONLY 2F. 



EXMPi DRIVES TO BE TESTED? 0,1,2<CR> 

THE DRIVES 00 NOT HAVE TO BE IN LOGICAL ORDER. 

EXMPI DRIVES TO BE TESTED? 2,4<CR> 

IF ANY ONE DRIVE IS TO BE TESTED, TYPE IN THAT 
NUMBER. IT DOES NOT HAVE TO BE DRIVE 0, 

THUS A NORMAL SEQUENCE WITH DRIVES 0,1 WOULD BEt 

RKtl LOGIC TEST II 
MAINDEC-U-DZPKK-D 
DRIVES TO BE TESTED? 0,1<CR> 

4.1.6 THERE IS A "RUBOUT" FEATURE NHICH ALLOWS RUBBING OUT 
AMY NUMBER OF CHARACTERS THAT WERE TYPED IN WRONG, 
THE RUBBED OUT CHARACTERS ABE ECHOED BACK WITHIN 
SLASHES. 

"•U" DELETES THE ENTIRE LINE 

4.1.7 IF REPLY TO ANY OF THE ABOVE QUESTION IS IN * WRONG 
FORMAT (EXI 01 2<CR> 1 0, 8<CR> 1 0,A<CB>» M<CR> ETC), IT 
IS AUTOMATICALLY REJECTED, A "??" IS PRINTED OUT» 



THE CORRECT ANSWER CAN NOW BE RETYPED- AGAIN, 



SEQ 0004 



4.1.R THE DRIVE NUMBER BEING TESTED OUT IS PRINTEDI SEQ 0009 

DRIVE N fN«0,l.,,7 

ir THE DRIVE IS AN RK-BSFf AN F IS APPENDED 
AT THE END OF A PASS THE FOLLOWING TYPE-OUT OCCURS 
END PASS • X 

WHERE X« PASS NUMBER (l,2r3---), CONTROL IS PASSED 
TO THE BEGINNING OF THE PROGRAM AND RE-EXECUTION 
BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGAIN. 



4.1.9 ERROR FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 
BELOW, 

RKll LOGIC TEST II 
MAINDEC-1 1-DZRKK-D 
DRIVES TO BE TESTED? 
0#1<CR> 
DRIVE 
DRIVE 1 
END PASS « 1 


DRIVE 1 

END PASS # 2 



4.2 RKDP DUMP MODE 

4.2.t THE PROGRAM IS LOADED INTO THE MEMORY BY THE RKDP 
MONITOR 

4.2.2 START AS NORMALLY USING SA 200 

4.2.3 THE PROGRAM IDENTIFIES ITSELF (NAME* MAINDEC NO.). 
ON FINDING OUT THAT THE LOADING WAS BY RKDP (DUMP 
MODE)» THE FOLLOWING MESSAGE APPEARS! 

'TO TEST DRIVE 'N* HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM* 

IF DRIVE 'N' IS TO BE TESTED, THE RKDP PACK ON THAT 
DRIVE SHOULD BE REPLACED BY ANOTHER PACK, THE DRIVE 
SHOULD BE PUT ON 'WRT ENABL' (BECAUSE RKDP WRITE 
PROTECTS THE DRIVE), 

IF DRIVE 'N' IS NOT TO BE CHECKED, THEN THE MESSAGE 
SHOULD BE IGNORED. 

AFTER THIS, THE SEQUENCE OF QUESTIONING IS AS 
EXPLAINED IN 5FC 4,1.5. 



4,3 



RKDP CHAIN MODE 



THE PROGRAM IS CHAIN-LOADED FROM THE RKDP PACK ON 
DRIVE 'N'. AFTER THE PROGRAM IDENTIFIES ITSELF THE 
FOLLOWING PRINTOUT OCCURS, 

•DRIVE 'N' NOT TESTED* 

THERE IS NO OPERATOR INTERVENTION REQUIRED, THE 
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT, 

ACTll MODE 

THE PROGRAM IS LOADED BY THE ACTll MONITOR. ON 
STARTING, IDENTIFIES ITSELF, ASCERTl^INS THE NUMBER 
OF DRIVES AND PROCEEDS WITH THE EXECUTION OF THE 
TESTS AS BEFORE. 



DRIVE SELECTION 

IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOP 
TESTING, PUT THAT DRIVE ON 'RUN', 'WRITE ENABLE* » 
PUT REST OF THE DRIVES ON 'LOAD*, 'WRITE LOCK' AND 
IN REPLY TO THE OUES- TIONVES TO BE TESTED?) 
TYPE IN THE DRIVE NUMBER FOLLOWED BY CR. SEE SEC 
4,1,5, 



DRIVE-LESS TEST 

USE RKll BASIC LOGIC TEST I, WHICH IS ACTUALLY THE 
FIRST PART OF THE TWO-PART RKll BASIC LOGIC TESTS, 
SEE SEC 1.0, 2.2, 



SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
MOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
•SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G*. THE PROGRAM WILL 

RECOGNIZE THE 'CONTROL G' whtAfver the program snttrs 
the seoipe routine or beglni a new teat, the 

•SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 

'SWR « NNNNNN NEW 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT* AND 
•CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
•UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
'SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED, 



SW<lS>al 
8W<t4>ai 
8W<13>al 
SH<12>«1 

SW<U>si 

SW<10>Bl 

SW<09>«1 
SW<08>al 
SW<06>al 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR PRINTOUTS 

CYCLE ON ERROR TO THE PREVIOUS 

'SCOPE* STATEMENT 

INHIBIT ITERATIONS 

TESTING ON SIMULATOR 

LOOP ON SPECIFIC ERROR 

LOOP ON TEST AS PER SW<07|00> 

DROP THE DRIVE AFTER MAXIMUM 

ALLOWABLE NUMBER OF ERRORS OCCUR 



7.1 8W<15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION, PRESSING "CONTINUE" RESTORES NORMAL 
OPERATION OF THE PROGRAM, 

7.2 SW<14> 

THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS 
USED NORMALLY ALONG SW 15. SEE SEC 8,0. 

7.3 SW <li* 

THIS SWITCH INHIBITS ALL ERROR MESSAGES, NORMALLY 
USED WHEN LOOPING ON TEST (SW 14} OR LOOPING ON 
ERROR (SW 9] . 

7.4 SW <12> 

THIS SWITCH ALLOWS THE PORGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT, 
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
AT THE BEGINING OF THE SUBTEST WILL BE DONE AGAIN 
AND AGAIN, SEE SEC 8,0 FOR DIFFERENT SCOPE LOOPS 
AVAILABLE, 

7.5 SW <11> 

EACH SUBTEST WILL BE EXECUTED ONLY ONCE. NORMALLY 
AFTHE FIRST PASS, EACH SUBTEST IS ITERATED A 
NUMBER OF TIMES (USUALLY 50, 5 IN SOME CASES), 
SETTING THIS SWITCH INHIBITS ITERATIONS, SO THAT 
QUICK PASSES CAN BE MADE, 

7.6 SW <10> 



THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 
DONE ON A SIMULATOR, THE SWITCH SHOULD BE PUT UP 
BEFORE START- ING THE PROGRAM, NOTE THAT RKUC IS 
NOT COMPATIBLE WITH THE SIMULATOR, 



SEQ 0007 



7.7 



8M <09> 



THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP. NOTE THATKE SW12 THE INITIALIMTION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR. (EXAMPLES RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777, 
PATTERN 561 IS GIVING ERROR* YOU MIGHT NOT WANT TO 
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON 
THE 561TH PATTERN. IN THIS CASE 8W 9 WILL GIVE YOU 
A SCOPE LOOP ON THE 561 TH PATTERN ONLY 

7.8 SW <08>' 

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS 
PER SW<00>07>> FOR EXECUTION AND SUBSEQUENT LOOPING. 
THUS IP TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
WOULD BE 000415. IT SHOULD BE NOTED THAT BEFORE 
SELECTING TEST 15# ALL THE PREVIOUS TESTS (l»14) 
WILL BE EXECUTED. 

7.9 8M<06> 

THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 

THE SELECTION LIST AND TESTING AFTER MAXIMUM 

ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) ON 

THAT DRIVE If EXCEEDED. THE MAXIMUM ALLOWABLE ERROR 

COUNT IS 5t AFTER 5 ERRRORS HAVE OCCURED DRIVE 

IS DROPPED AND A MESSAGE (DRIVE « XXX DROPPED) IS 

PRINTED. 



8.0 SCOPE LOOPS 

THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 

1. 8H14I LOOPING IS DONE FOR THE ENTIRE SUB-TEST 

3. SW12I LOOPING IS DONE FROM THE POINT OF ERROR 
BACK TO THE PREVIOUS 'SCOPE' STATEMENT. 

3, SW09i PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 
SEE SEC. 7.7 

EXAMPLES 
TSTlt SCOPE 
I 



INITIALIZATION 

: 

ERROR 1 
t 

ERROR 2 
I 



SEQ 0008 



ERROR 1 
I 

ERROR 4 

I 

I 

TST2I SCOPE 

THE SEQUENCE OP LOOPING FOR DIFFERENT CASES IS 
EXPLAINED BELOW. NOTE THAT 'TSTl* AND •TST2' ARE 
TAGS WHICH DEFINE THE BOUNDARY OF A TEST, (IN THIS 
CASE TEST 1), TEST I STARTS AT *TST1' AND ENDS JUST 
BEFORE *TST2', 

IN THE ILLUSTRATION BELOW --> INDICATES THE POINT 
FROM WHERE RETURN 18 MADE AND LOOPING 18 DONE. 

1, ERROR 2 OCCURS, SW 14 SET. 

I,, ERROR 2,,TST2— >TST1,,ERR0R 2. .TST2">TST1 , , , 

2, ERROR 2 OCCURS, SW 12 SET. 

TSTl... ERROR 2— >TST1 , . ,ERR0R2— >TST1 , , , 

3. ERROR 2,3} SW 14 SET. 

T8T1., ERROR 2., ERROR 3. .TST2-«>TaTl . .ERROR 2.. ERROR 
3..T8T2— >TST1 ... 

4. ERROR 2,3) SM 12 SET, 

T8T1,,, ERROR 2— >TST1 , . .ERROR 2««>TSTl.,,, 

NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 
ENCOUNTERED. THE MORE BASIC AND ERROR THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 

IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST IS 
BEING REPEA8ING DIFFERENT PARAMETERS, HENCE IT 
80 HAPPENS THAT SW 9 AND 12 GIVE THE SAME KINO OF 
LOOPB, THE EXAMPLE BELOW WILL DEMONSTRATE THE 
DIFFERENCE BETWEEN SW 9 AND 12. 

TSTit SCOPE 

i 



til 



INITIALIZATION 
I 

ERROR 1 
t 



MOV 



I 

} 

ER 
I 



«li,iLPERR 



I'iLPERR* CONTAINS 
{THE ADDRESS TO LOOP 
;8ACK ON ERROR- SW 9 



N REPETITIONS 
I 



SEQ 00B9 



TST2t SCOPE 



1. SW 12 SET, ERROR 2 OCCURS DURING K.TH 
REPETITIONS 



TST1.,1#2...K.ERP0R 2— >TST1 , , 1 , 2 . , .K.ERPOR 2">TSTl.. 
2. 8N 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1»,.K, .ERROR 2— >ll..K.,ERROR 2-->ll... 



PROGRAM STRUCTURE 

THERE ARE THREE DISTINCT PARTS OF THE PROGRAM. 
SET*UP PHASE 

DRIVE*OEPENDENT CONTROLLER TESTS 
SET-UP PHASE 

SETTING UP OF INITIAL POINTERS, VECTORS, TABLES IS 
DONE IN THIS PART. IN THIS SECTION THE DECISION IS 
MADE ABOUT THE PROGRAM MODE-PAPER TAPE, RKOP DUMP, 
CHAIN OR ACTll. IF IN A NON-INTERVENTION MODE 
(CHAIN, ACTll) NUMBER OF DRIVES AMD THE TJtPE OF 
CONTROLLER IS FOUND OUT. FLAGS ARE SET TO INDICATE 
MHICH DRIVES ARE TO BE TESTED, ETC. 

DRIVE DEPENDENT CONTROLLER TESTS 

THIS SECTION FORMS A MAJOR PART OP THE PROGRAM 
WHEREIN MOST OF THE CONTROLLER IS CHECKED. 

JUST BEFORE ENTERING THIS SECTION THE PROGRAM FINOS 
OUT WHICH DRIVE IS TO BE CHECKED. IF IN RKDP CHAIN 
NODE, DRIVE 'N' IF PRESENT, IS SKIPPED AND THE NEXT 
AVAILABLE DRIVE IS SELECTED, 

THE DRIVE NUMBER BEING TESTED IS PRINTED OUT! 

DRIVE N yNB0,l,2...7 

THE TESTING IS DONE IN A LOGICAL HIERCHY* SIMPLER 
THINGS FIRST, THEN MORE COMPLEX AND SO ON. 

IN ONE OF THE TESTS THE ENTIRE DISK PACK IS 
FORMATTED, CHECKS ARE MADE FOP ERROR CONDITIONS. 
THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 
PSITEDO-HEAOER, REFLECTING THE ABSOLUTE ADDRESS OF 
THAT SECTOR (DRIVE f, CYLINDER I, SURFACE #, SECTOR 
•). EXAMPLE! THE PSUEDO-HEADER FOR SECTOR 5, 
SURFACE 0, CYLINDER 20, DRIVE \A WOULD BE 0dl009. 

IN THE NEXT TEST THE HEADERS FROM THE ENTIRE PACK 
ARE READ AND CHECKED FOP CORRECTNESS. IN A 
SUBSEQUENT TEST ALL THE PSUEDO-HEAOERS ARE RFAD i\ND 
VERIFIED, 



ALL THE FUNCTIONS APE CHECKED OUT, 'SEEK* IS 
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH, 
MEDIUM, LOW). VARIOUS ERRORS LIKE 'NXD', 'NXC, 
ETC. ARE SIMULATED AND CHECKED. 

HARDWARE POGIC IS CHECKED USING ALL THE DRIVES 
THAT HAVE BEEN INDICATED. 

AT THE END OF THIS SECTION, A CHECK IS MADE IF ALL 
INDICATED DRIVES HAVE BEEN TESTED, IF NOT, CONTROL 
IS TRANSFERRED TO THE BEGINNING OF THIS SECTION, 

THUS ONE PASS OF THE PROGRAM INVOLVES DOING 

1, SUBTEST «1 ONCE 

2. DRIVE-DEPENDENT TESTS FOR ALL THE SELECTED 
DRIVES. 



10.0 ERROR REPORTING 

THE ERROR TABLE STARTING AT lERRTB CONTAINS 
INFORMATION PERTAINING TO EVERY ERROR THAT CAN 
OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR 
ENTRIES. 

A. EM - THIS IS A POINTER TO THE ERROR MESSAGE TO 

BE TYPED OUT WHEN THE ERROR OCCURS, 

B. DH - THIS IS A POINTER TO THE DATA HEADER TO BE 

TYPED OUT, 

C. OT - THIS IS A POINTER TO THE DATA WHICH IS TO 

BE TYPED TYPED OUT UNDER THE HEADERS, 

D. - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM, 

THE ERROR CALL IS AN EMT INSTRUCTION WITH ITS LOWER 
BYTE ENCODED TO INDICATE THE ERROR NUMBER. THUS 
OR 1" WOULD BE (EMTfl) IE 104001, 

EVERY ERROR CORRESPONDS TO AN ITEM IN THE ERROR 
TABLE. THUS "ERROR 14" WOULD CORRESPOND TO ITEM 14, 
AS FAR AS POSSIBLE, THE ERROR MESSAGES HAVE BEEN 
KEPT SHORT, BUT CLARITY IS NOT SACRIFICED FOR 
BREVITY, INSPITE OF THIS, IF THE USER FINDS A NEED, 
HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROR 
ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS, 
THUS FOR "ERROR 14", "ITEM 14" IN THE ITEM TABLE CAN 
BE LOOKED UP. WHEN THE ERROR INSTRUCTION IS 
EXECUTED A TRAP OCCURS TO THE ERROR HA LOCATED 
AT $ERROR WHICH PROCESSES THE ERROR CALL. SEE SEC 
12.3 



11.0 ERROR INTERPRETATION 

WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL 
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE 



SEQ 0011 



ALSO GIVEN. RKOSf PKER..,RKBA INDICATE THE CONTENTS 
or THE CORRESPONDING REGISTERS AT THE TIME OF ERROR. 

EVERY ERROR MESSAGE CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE OF 
PRACTICAL CONSIDERATIONS IS MADE SHORT AND 
MEANINGFUL, THE USER IS ADVTO LOOK UP THE PC 
IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE 
INFORMATION ABOUT THE ERROR, IN MANY INSTANCES, A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT. A LITTLE DELIBERATION AND CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL IN PINPOINTING THE FAULT, A BRIEF 
EXPLANATION OF NHAT IS BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THE BEGINNING OF EVERY SUBTEST, ALL THE 
NUMBERS GIVEN WITH ERROR MESSAGES ARC IN OCTAL, 



12.0 HANDLERS AND COMMON ROUTINES 

THE COMMOSED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS. 

A. AS A SUBROUTINE THROUGH 'JSR' CALL 

B. THROUGH A 'TRAP' HANDLER 

12.1 TRAP HANDLER 

MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE 
CALLED USING THE TRAP INSTRUCTION AND THE 'TRAP' 
HAHDLER, THE LOWER BYTE OF THE TRAP INSTRUCTION IS 
ENCODED DIFFERENTLY FOR DIFFERENCT ROUTINES. THE 
TRAP HANDLER IS LOCATED AT 'STRAP'. WHEN A CALL FOR 
A ROUTINE IS EXECUTED, A TRAP OCCURS TO THE HANDLER 
ARAP'. THE HANDLER PICKS UP THE LOWER BYTE OF 
THE "CALL INSTRUCTION" AND USES IT TO FORM THE 
STARTING ADDRESS OF THE ROUTINE TO GO TO FOR 
SERVICE. 



12.2 SCOPE HANDLER 

THE 'lOT' TRAP IS USED BY THE 'SCOPE* STATEMENT. 
WHEN 'SCOPE' IS EXECUTED, AN lOT TRAP OCCURS TO 
MEMORY LOCATION 'tSCOPE'. THE SCOPE HANDLER STARTS 
AT tSCOPE. DEPENDING ON THE SWITCH SETTINGS THE 
HANDLER DECIDES TO LOOP ON TEXT, INHIBIT ITERATIONS 
ETC. THERE ARB CERTAIN POINTERS AND FLAGS WHICH ARE 
ADJUSTED, THUS, IT IS NOT ADVISABLE START THE 
PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS 
POINTERS AND FLAGS MAY NOT BE CORRECTLY ADJUSTED. 

12.3 ERROR HANDLER 

AN EMT TRAP INSTRUCTION IS USED BY THE ERROR CALL, 
THE LOWER BYTE IS ENCODED TO GIVE DIFFERENT ERROR 
CALLS. (EXt ERROR 1 9 104000tl» ERROR 16 « 
104000'»-16), WHEN THE ERROR STATEMENT IS EXECUTED, A 



SEQ 0012 



TRAP OCCURS TO MEMORY LOCATION '*ERROR', THE ERROR 
HANDLER IS LOCATED AT 'SEPROR', THE HANDLER FORMS 
THE POINTER TO ERROR TABLE* WHICH IS USED IF AM 
ERROR MESSAGE IS TO BE TXPED OUEPENDING ON THE 
SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERROR, 
INHIBITING TYPEOUT, LOOPING ON ERROR ETC. IS MADE, 
IF AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS 
MADE TO THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT 
'lERRTYP'. 



12.4 CONTROL RESET ROUTINE 

THE CALL FOR THIS ROUTINE IS "CNT, RESET" AND IS AN 
ENCODED 'TRAP* INSTRUCTION. WHEN »CNT, RESET" IS 
EXECUTED THE CONTROL RESET ROUTINE STARTING AT 
"CN.RST" IS ENTERED, A CONTROL RESET IS ISSUED 
THE PROGRAM WAITS TILL THE CONTROL READY SETS, ON 
WHICH THE ROUTINE IS EXITED, IF CONTROL READY DOES 
NOT SET WITHIN A CERTAIN TIME AN ERROR IS REPOPTEO, 
THE PC TYPED OUT IS THE LOCATION ^HERE THE 
"CNT. RESET" CALL IS LOCATED, THE WAITING TIME IS 
2,8 MS FOR 11/20 AND 560 US FOR U/45 WITH BIPOLAR 
MEMORY, 

12.5 CONTROL READY ROUTINE 

THIS ROUTINE IS CALLED BY "CNT.RDY" (AN ENCODED 
•TRAP' INSTRUCTION) AND IS LOCATED AT "CN,RDY". THE 
ROUTINE WAITS FOR THE CONTROL READY TO SET AND WHEN 
IT DOES, EXITS IF CONTROL REXDY DOES NOT SET 
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 

CNTRL RDY DIDN'T SET 

PC •. XXXXXX RKCS ■ YYYYYY 

THE PC IS THE LOCATION AT WHICH THE "CUT, ROY" CALL 
IS LOCATED, THE WAITING TIME IS 949 MS FOR li/20 
AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY* 



12.6 DRIVE RESET ROUTINE 

THE DRIVE • RESET ROUTINE IS LOCATED AT "DRE8ET" AND 
IS CALLED BY A "JSR", IT ISSUES A DRIVE RESET AND 
WAITS FOR THE R/W/S RDY TO SET, ON WHICH THE ROUTINE 
IS EXITED. THE WAITING TIME IS 4959 MS FOR 11/20 
AND 991 MS FOR 11/45 WITH BIPOLAR MEMORY, 

12.7 TIME DELAY ROUTINE 

THIS ROUTINE PROVIDES A VARIABLE TIME DELAY, THE 
CALL IS DELAY ,N WHERE N«l TO 177777 (OCTAL) TIME 
DELAY PROVIDED* 7.5 TIMES( X ) N MICRO SECS FOR 
11/20, 1,5N US FOR 11/45 (N CONVERTED TO DECIMAL 
BEFORE COMPUTING DELAY) IF THE USER WANTS TO CHANGE 
THE DELAY AT ANY POINT IT CAN BE DONE BY SIMPLY 
CHANGING VARIABLE 'N', 



SEQ 0013 



12.8 



WATT FOR INTERPUPT ROUTINE 



THIS ROUTI^iE PPOVIDLS A VAPIAPLE TIME LIMIT DURING 
WHICH RKll INTERRUPT MAY OCCUR. THE IS 

WAT.IHT ,N N»l TO 1777777 (OCTAL) 

WAITING TIME*7,5 TIMES( X ) N US FOR U/20r 1.5N US 



FOR 11/45 UPON ENTERING THE ROUTINE CPU PRIORITY IS 
DROPPED SO THAT PKll CAN INTERRUPT, 



12.9 OTHER ROUTINES 

THERE ARE OTHER COMMONLY USED ROUTINES AS LISTED 
BELOW. 

ITYPEJ 

TYPE ROUTINE FOR TYPING OUT ASCII STRINGS. 
LOCATED AT "STYPE" 
CALLED BY "TYPE" 

ITYPOCI 

ROUTINE FOR TYPING OUT OCTAL NUMBERS. 
LOCATED AT "ITYPOC 
CALLED BY "TYPOC" 

ITYPDSI 

ROUTINE FOR TYPING OUT DECIMAL NUMBERS, 
LOCATED AT "ITYPDS" 
CALLED BY "TYPOS" 



«RDLINI 

ROUTINE FOR INPUTTING ASCII STRINGS FROM TTY. 
LOCATED AT "IRDLIN" 
CALLED BY "RDLIN" 

lERRTYP: 

ROUTINE FOR TYPING OUT ERROR MESSAGES, 
LOCATED AT SERRTYP 
CALLED BY "JSR SERRTYP" 

tPWRDNi 

ROUTINE FOR HANDLING POWER FAILURE. 
LOCATED AT IPWRDN 

CALLED WHEN THERE IS A POWER FAILURE, 
SPWRUPt 

ROUTINE FOP HANDLING POWER UP AFTER A POWER FAIL. 
LOCATESPWRUP 

CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN, 



13,0 UNEXPECTED TIMEOUTS AND RKll INTERRUPTS 



WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH 
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS, 



8EQ 0014 



IF IT IS TNTftCTr IT CAN BF: RESTARTED BY PRESSING 
CONTINUE, 

IF AM UNEXPECTED RKll INTERRUPT OCCURS THR PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS, PRESSING CONTINUE WOULD RESTART THE 
PROGRAM FROM BEGINING, S»J 9- LOOPING CAITY IS 
PROVIDED AS A TROUBLE SHOOTING AID, 



14.0 QUICK VERIFYING MODE 



THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING 
MODE, ALL THE TESTS ARE DONE ONLY ONCE# ON 
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY 
5^ TlMESr 5 IN SOME CASES). THUS THE FIRST PASS 
TAKES A SHORTER TIME TO COMPLETE* WHEREAS SUBSEQUENT 
PASSES TAKE MORE TIME, 



SEQ 0015 
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SEQ 0016 



23 OPERATIONAL SWITCH SETTINGS 

48 BASIC DEFINITIONS 

159 TRAP CATCHER 

167 STARTING ADDRESS(ES) 

169 ACTll HOOKS 

179 COMMON TAGS 

332 ERROR POINTER TABLE 

965 INITIALIZE THE COMMON TAGS 

1002 TYPE PROGRAM NAME 

1007 GET VALUE FOR SOFTWARE SWITCH REGISTER 

1312 Tl CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 

1388 T2 FIND OUT NEXT DRIVE TO BE CHECKED 

1442 T3 CHECK THAT DRIVE IS SUPPLIED WITH POWEP-DPL BIT 

1490 T4 CHECK THAT 'DRIVE UNSAFE* IS CLEAR, 'HDEN* IS SET# 'WPS* IS CLEAR 

1528 T5 CHECK THAT 'DRIVE READY' IS SET IN RKDS 

1549 T6 CHECK THAT 'SDK' BIT CAN SET 

1568 T7 CHECK THAT 'SECTOR COUNTER' CAN COUNT FROM 0-13 

1666 T10 CHECK THAT SC«SA CAN BE GENERATED 

1704 Til CHECK THAT 'R/W/S RDY' IS SET & 'SIN' IS CLEAR 

1729 T12 CHECK 'DRIVE RESET* 

1786 T13 CHECK 'SEEK' TO CYLINDER 

1850 T14 CHECK R/W/S RDY IS CLEAR WHEN HEADS ARE IN MOTION 

1900 T15 CHECK 'WRITE* FORMAT FUNCTION-CYLINDER 2r SECTOR 

2013 T16 CHECK 'READ FORMAT' FUNCTION-CYLINDER 0, SECTOR 

2121 T17 CHECK 'READ* FUNCTION-CYLINDER 0»SECTOR 

2248 T20 CHECK 'WRITE FORMAT' -CYLINDER 0# SECTOR 0-13 

2344 T21 CHECK 'READ FORMAT'-CYLINDER 0, SECTOR 3-13 

2454 T22 CHECK 'READ* ^CYLINDER d, SECTORS TO 13 

2616 T23 CHECK 'WRITE FORMAT' OF THE DISK 

2742 T24 CHECK 'READ FORMAT' FOR THE ENTIRE DISK 

2902 T25 CHECK 'READ' OF THE ENTIRE DISK 

3035 T26 CHICK 'SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES 

3140 T27 CHECK DRIVE RESET FROM LAST CYLINDER 

3262 T30 'WRITE' - 256 WORD BLOCK OH SECTOR 0, CYLINDER 

3374 T31 CHECK THAT WRITE WAS DONE CORRECTLY 

3454 T32 CHECK 'READ CHECK* FUNCTION - CYLINDER 0» SECTOR 

3541 T33 CHECK THE 'WRITE CHECK* FUNCTION - ON CYLINDER 0» SECTOR 

3630 T34 CHECK THAT ISA INHIBITS INCREMENTING OF RKBA 

3743 T35 CHECK THAT RKll INTERRUPTS WHEN IDE IS SET 

3808 T36 CHECK THAT WITH IDE SET RKll INTERRUPTS AFTER IMTIATION 6 COMPLETION OF SEEK 

3920 T37 CHECK THAT WITH IDE SET RKll INTERRUPTS WHEN READ IS DONE 

3995 T40 CHECK THAT RKll INTERRUPTS AT BPS ONLY 

4078 T41 SIMULATE & CHECK 'OVR* ERROR 

4156 T42 SIMULATE 6 CHECK PGE ERROR 

4222 T43 SIMULATE & CHECK NXM ERROR 

4295 T44 SIMULATE & CHECK NXD ERROR 

4376 T45 SIMULATE 6 CHECK NXC ERROR 

4462 T46 SIMULATE & CHECK NXS ERROR 

4535 T47 SIMULATE 6 CHECK WCE 

4602 T50 CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 

4671 T51 CHECK THAT RKll INTERRUPTS ON SOFT ERROR WHEN SSE 6 IDE ARE SET 

4738 T52 CHECK THE MEX BITS IN RKCS 

4807 T53 TRANSFER FROM DISK TO TTY 

4903 T54 CHECK THAT RKBA CAN COUNT CORRECTLY 

4963 T55 CHECK FOR RK-05F 

4979 T56 END OF PROGRAM 
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SEQ 0017 



5003 T57 CHECK HARDWARE POLMNG LOGIC 

5237 END OF PASS ROUTINE 

52fl3 GT2RG» ROUTINE FOP GETTING RKCS,RKER 

5289 GT3RG: ROUTINE FOR GETTING RKCS, PKER, RKDS 

5297 GT4RG1 ROUTINE FOR GETTING RKCSr PKER# RKDS» RKDA 

5315 TYERM: SPECIAL ERROR MESSAGE ROUTINE 

5337 BDA0r BDA4I BREAK DISK ADDRESS INTO SEC» SUP, CYL* DRIVE 

5395 SHFTRTI SHIFT BIGHT ROUTINE 

5415 CHKHEl CHECK FOR 'ERR'OR 

5416 CHKHEIJ CHECK FOR 'EPR'OP 

5449 CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 

5471 CHKWC: CHECK IF RKWC OVERFLOWED 

5485 CHKERl CHECK PKER CONTENTS 

5525 TSTRWSI WAIT FOR P/W/S PDY ROUTINE 

5552 ORESET: DRIVE RESET ROUTINE 

5590 TSTSIN! CHECK 'SIN* ROUTINE 

5619 DELAY: TIME DELAY ROUTINE 

5642 WAT. INT: WAIT FOR INTERRUPT ROUTINE 

5684 CHKCRDYI CHECK CONTROL READY 

5709 CON. RESET! CONTROL REST ROUTINE 

5726 CNT.RDY: wait FOR CONTROL READY ROUTINE 

5770 SCOPE HANDLER ROUTINE 

5838 ERROR HANDLER ROUTINE 

5908 EPROR MESSAGE TYPEOUT ROUTINE 

5956 TYPE ROUTINE 

6027 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

6^95 BINARY TO OCTAL (ASCII) AND TYPE 

6173 TTY INPUT ROUTINE 

6341 TRAP DECODER 

6364 TRAP TABLE 

6401 POWER DOWN AND UP ROUTINES 

64fl8 ERROR MESSAGES 

6986 ERROR DATA POINTERS 

7009 ERROR HEADERS 
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SCO 0018 



1 
3 
1 
4 
S 
6 
7 

e 

9 

10 .TITLE MMMOEC-ll-OZRKK-D 

11 »»COPlBICHT (C) 1974fl976 

12 f»DIGII»L EOUIPMEMI CORP. 

13 |»MAYNkRO. MASS. 01754 
1* !• 

15 (•PROGRAM BT JIM KAPADIA 

16 >* 

n J»IHIS PROGRAM HAS ASSEMBLED USING THE POP-11 NAINDEC SXSMAC 

18 »»PACKAGE (»AINOeC-ll-OlOAC-Ca)i SEPT 14, 1976. 

19 >« 

20 ;»PBOailAM REVISED BY lOH SAHYERt MARCH. 1976 

21 fCRETISED BY CHUCK HESSt lOGUST. 1976 

22 .SBTTL OPERATIONAL SWITCH SETTINGS 
23 
24 
25 
26 
27 
29 
79 
33 
11 
32 
33 
34 
35 

36 
37 

•••••#•••••««»••••••••«••••••••»••••••••••••»•••••••••••••••••• 

39 

40 ;YOU ARE AMflSED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 

41 

42 ION GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED 

4) lOUT IN THE ERROR MCSSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED 

44 tCAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT 

45 

46 )••••»*•••••••••••••»•••••••*••••»••»••••••«•••«•»•»«•••«»•••*•••• 

47 .SBTTL BASIC DEFINITIONS 
40 

49 >*INITtAL ADDRESS OF THE STACK POINTER ••• 1100 

50 001100 STACK* \\0t) 

51 .EOUIV EHT. ERROR MBAStC DEFINITION OF ERROR CALL 
92 .EQUIV lOT, SCOPE IIBASIC DEFINITION OF SCOPE CALL 
5) 

54 )*MISCELLANEOUS DEFINITIONS 

55 000011 HT« 11 1 1 CODE FOR HORIZONTAL TAB 

56 000012 LF> 12 MCODE FOR LINE FEED 



!• 
»• 


SWITCH 


USE 


>* 
!• 


15 


HALT ON ERROR 


»• 


14 


LOOP ON TEST 


»• 


13 


INHIBIT ERROR TYPEOUTS 


t* 


12 


CYCLE ON ERROR TO PREVIOUS 'SCOPE' STATEMENT 


»• 


11 


INHIBIT ITERATIONS 


f» 


10 


TESTING ON SIMULATOR 


»• 


9 


LOOP ON ERROR 


»• 


8 


LOOP ON TEST IN SWR<710> 


»• 


6 


DROP THE DRIVE IF MORE THAN 5 ERRORS 
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57 
59 
59 

63 
61 
62 
63 
64 
65 
66 



101 
ld2 
• 03 
104 
105 
106 
107 
109 
109 
110 
111 
112 



00001S 
000200 
177776 

177774 
177772 
177570 
177570 



100000 
040000 
0»0e0 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
300040 
000020 
000010 
000004 
000002 
000001 



CR» 15 

CRLFa 200 

PS» 177776 

.EQUIV PSrPSW 

STKLMT* 177774 

PIRU» 177772 

DSWR» 177570 

DDIS»» 177570 



IICODE FOR CARRIAGE RETURN 

IICODE FOR CARRIAGE RETURN-LINE FEED 

n PROCESSOR STATUS WORD 

MSTACK LIMIT REGISTER 

M PROGRAM INTERRUPT REQUEST REGISTER 

MHARDHARE SNITCH REGISTER 

M HARDWARE DISPLAY REGISTER 



(•GENERAL PURPOSE REGISTER DEFINITIONS 



67 


000000 


R0« 


%0 


>l GENERAL REGISTER 


69 


000001 


Rl« 


%1 


» (GENERAL REGISTER 


69 


000002 


R2b 


%2 


(1 GENERAL REGISTER 


7d 


000003 


R3< 


t3 


((GENERAL REGISTER 


71 


000004 


R4> 


%4 


((GENERAL REGISTER 


72 


000005 


R5> 


%5 


((GENERAL REGISTER 


73 


000006 


R6« 


%6 


((GENERAL REGISTER 


74 


000007 


R7» 


%7 


((GENERAL REGISTER 


75 


000006 


SP« 


%e 


((STACK POINTER 


76 
77 


000007 


PC" 


%7 


((PROGRAM COUNTER 


79 




(•PRIORITY LEVEL 


DEFINITIONS 


79 


900000 


PR0» 





((PRIORITY LEVEL 


00 


000040 


PR1 = 


40 


((PRIORITY LEVEL 1 


91 


000100 


Pfl2« 


100 


II PRIORITY LEVEL 2 


92 


000140 


PR3» 


14i1 


((PRIORITY LEVEL 3 


91 


000200 


PR4 = 


20H 


It PRIORITY LEVEL 4 


94 


000240 


PR5* 


24^ 


((PRIORITY LEVEL 5 


95 


000300 


PR6« 


300 


((PRIORITY LEVEL 6 


96 


000340 


PR73 


340 


((PRIORITY LEVEL 7 



(•"SWITCH REGISTER" 
SW15* 100000 
40000 
20000 

10000 

4000 
2000 

1000 

400 
200 
100 
40 
20 
10 
4 
2 



SWITCH DEFINITIONS 



SW14a 
SW] )> 
SW12> 
SWlla 
SWlMa 
SW09a 
SW03a 
SW07a 
SH06* 
SW05S 
SW04a 
SW033 

SW01a 

8W019X 

.EQUIV 

.EQUIV 

.EOUIV 

.EQUIV 

.EOUIV 

.EQUIV 

•EOUIV 

.EOUIV 



1 

SW09,SW9 

sw>4n,sw9 

SHt47,SW7 
SW0b,SW6 
S»I0S,SW5 
S'<I04.SW4 
SM03,SH3 
SM02,SW2 



MUmoEC-Il-DlRKK-D »*C»1 1 37(1096) a4-OCT-T6 tblHh PkCE J 

DZRKirD.PII 22-8eP-T6 tlMT BASIC DGPINITlOMS 



SCO 9»2» 



tl) 






.EQUIV 


SH0I>SH1 


114 






.EQUIV 


SH00f SW0 


115 
116 






l»DATA BIT DBriMITIOWS (BITB* TO BII15) 


117 




1 80*00 


BIT15« 


100000 


lie 




040000 


BIT14« 


40000 


119 




030000 


Bill)* 


30000 


12a 




010000 


BIT12» 


10000 


131 




004000 


BITlta 


4000 


132 




003000 


BIT10« 


3000 


UJ 




001000 


BIT09B 


1000 


I3t 




000400 


BITOe* 


400 


135 




e>«0200 


BIT07« 


200 


126 




00»100 


Bireia 


100 


177 




000040 


BIT0S« 


40 


17U 




000030 


BIT04B 


20 


I39 




000010 


BIT03« 


10 


1)0 




000004 


BIT03* 


4 


1)1 




000003 


BIT01* 


3 


lU 




040001 


BIT00* 


1 


131 






.EOUtV 


BtTi»9,BIT9 


114 






.cauiv 


BIT08>BITn 


115 






.EOUIV 


BIT07,BIT7 


1 16 






.EOUIV 


BIT>46.BIT6 


1 37 






.EOUIV 


BIT0S«BtTS 


138 






.CQUIV 


BIT04,Bir4 


139 






.EOUIV 


RIT03,BIT3 


143 






.EQUIV 


BIT03,BIT3 


141 






.EOUIV 


BIT0t,BITl 


142 






.EQUIV 


BIT00,BIT0 


143 
144 






>»B*SIC 


'CPU* TRAP VECTOR ADDRESSES 


145 




000004 


EBBVEC" 


4 II TIME OUT AND OTHER ERRORS 


146 




000010 


PESVEC« 


10 1 (RESERVED AND ILLEGAL INSTRUCTIONS 


147 




000014 


TBITVEC = 14 M"T" BIT 


14S 




000014 


TPTVEC" 


14 IITRACE TRAP 


149 




01^0014 


BPTVEC" 


14 II BREAKPOINT TRAP (RPT) 






0I40030 


lOTVEC* 


20 II INPUT/OUTPUT TRAP (lOT) ••SCOPE** 






00(9034 


PUPVEC" 


24 iiPOHER FAIL 






0u00)e 


EMTVCC" 


30 llEMULATOR TRAP (EMT) ••ERROR** 


153 




000034 


Tt<ftPVFC«34 M'TBAP" TRAP 


154 




000060 


T»tVEC» 


60 IITTY RtTBOARD VECTOR 


IS5 




000064 


TPVEC" 


64 IITTT PRINTER VECTOR 


156 




000340 


PIRQVeC>240 IIPROGRKH INTERRUPT REQUEST VECTOR 


157 






.S8TTL 


TRAP CATCHER 


158 

159 




000000 




.■0 








t*Hl.l. UNUSED LOCATIONS FROM 4 - 776 CONTklH k ".f3rHALT" 


1^1 






{•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 


162 






••LOCATION e CONTAINS TO CATCH IMPROPERLY LOADCO VECTORS 


163 




000174 




.•174 


144 




000000 


DISPREG 


.WORD IISOFTHARE DISPLAY REGISTER 


165 


ea<it76 


000000 


SHREGl 


.WORD llSOFTWARE SNITCH REGISTER 


166 






.SBTTL 


STARTING ADORESSCES) 


167 


0003fle 


0001)7 003636 




JMP ■•START II JUMP TO STARTING ADDRESS OF PROGRAM 


168 






.SBTTL 


ACTil HOOKS 
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169 
1 7i1 
171 
172 
173 
174 
175 
176 
177 



000204 
000046 
020646 
000053 
000000 
000204 



n ••••••»•••••*••••••*••< 

IHOOKS REQUIRED BY ACTlt 
ISVPC«. 
.■46 
IFNOAO 
.■53 

,MOPD 9 
.■•SVPC 



iSAve PC 

IIDSET LOC.ie TO ADDRESS OF lENDAD IN .8E0P 



llDSCT L0C.93 TO ZERO 
;i RESTORE PC 
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SEQ 0033 



178 






179 






1 B0 

tsi 






102 






193 






194 




am 1 1 aa 
w 1 4 w 


1 85 


001 100 




196 


001 100 


000000 


187 






1 99 


Ml iai 


000 


1 99 




0KFVVUV 


19W 






191 


001 110 




192 




000000 


193 


001 114 




194 


551 J}? 




195 


001116 


000000 


196 


001 120 


000000 


1 97 


001 1 22 


000000 


198 


001 124 


000000 


1 99 


001 126 


000000 


200 


001 1 30 


000000 


201 


??| J'^ 




2B2 


001 134 




203 


001 135 


000 


204 


001 136 




205 


aai li? 




206 


It? 


1 77^70 


207 


001 144 




209 




177562 


209 




1 77564 


21 


001 152 




9' i 


001 154 


000 


212 


an! i^K 


002 


2H 








«ni 1 ST 


000 


71 S 


Hflt 160 


000000 


216 






2 1 7 


001 162 


000000 




001 164 


000000 


2l9 


001 166 


000000 






000000 


221 


00 1172 


000000 


222 


001 174 


000000 


273 


001176 


000000 


224 


001300 


000000 


225 


001202 


000000 


276 


001204 


000000 


227 


001206 


000000 


228 


001310 


000000 


229 


001213 


077 


210 


001313 


015 


241 


001214 


00001 2 


232 






233 


001316 


005015 



.SBTTI, COMMON TAGS 

||»»*»«»»»»»»»«»»*»»»»»»»»»»»»»»»»»«»»»«*»»»*«»»*»»*"»*»»******* 

(•THIS TA»tE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
|«USED IN THE PROGRAM, 

.■1100 

ISTART or COMMON TAGS 

JCOHTAINS PASS COUNT 

jCOMTAINS THE TEST NUMBER 

jCONTAIMS ERROR FLAG 

ICONTAINS SUBTEST ITCRATIOK COUNT 

ICONTAINS SCOPE LOOP ADDRESS 

JCONTAIMS SCOPE RETURN FOR ERRORS 

ICONTAINS TOTAL ERRORS DETECTED 

ICONTAINS ITEM CONTROL BYTE 

ICONTAINS MAX. ERRORS PER TEST 

ICONTAINS PC OF LAST ERROR INSTRUCTION 

ICONTAINS ADDRESS OF 'GOOD' DATA 

ICONTAINS ADDRESS OF 'BAD' DATA 

ICONTAINS 'GOOD' DATA 

IC0«T»I»3 'BAD* DATA 
IFESEPVED--NOT TO BE USED 

I AUTOMATIC MODE INDICATOR 
I INTERRUPT MODE INDICATOR 

lADORESS OF SWITCH REGISTER 
I ADDRESS OF DISPLAY REGISTER 
ITTI KBD STATUS 
ITTY KBD BUFFER 

ITTY PRINTER STATUS REC. ADDRESS 
ITTT PRINTER BUFFER REG< ADDRESS 
ICONTAINS NULL CHARACTER FOR FILLS 
ICONTAINS f OF FILLER CHARACTERS REQUIRED 
I INSERT FILL CHARS. AFTER A "LINE FEED* 
|"TCRMINAL AVAILABLE* FLAG (BIT<07>s0sYES} 
ICONTAINS THE ADDRESS FROM 
IHHICH (*REG0) HAS OBTAINED 
ICONTAINS ((tREGAD}f3) 
ICONTAINS C($REGA0}i2) 
ICONTAINS (($REGAD)'«'4) 
ICONTAINS (CtREGADltS) 
ICONTAINS (((ReGAO)4l0) 
ICONTAINS (($REGA0}+13) 
ICONTAINS (CtREGADX-M) 
ICONTAINS (((REGAD)«^16) 
ICONTAINS ((«REGAO]^20) 
ICONTAINS ((IPEGAD}-f22) 
IMAX, NU«(BER OF ITERATIONS 
lESCAPE ON ERROR ADDRESS 
IQUESTION MARK 
ICARRIAGE RETURN 
I LINE FEED 

1 1 *•••••»••••»•••••••«»••»•••••••»•»«••»»•«••••»•»••«••»««»»»«•»• 

MSGII .ASCIZ <tS><12>/DRlVt: PRESNT/ 











.WORD 





STSTNMi 









'byte 







«MORD 











SLPERR 3 


*MORD 





ftERTTLI 


.WORD 





ft ITCHBS 









.BYTE 


1 


tERRPC : 


.WORD 





SGPADRS 







SBOADRl 


Imord 





SGDDATS 


.WORD 





sbodat s 








• WORD 







«MORD 





8AUT0BI 


. BYTE 





s intag: 


.BYTE 







.HORD 





SHRI 


.WORD 


DSHR 


DISPLAYI 


.WORD 


DOISF 


tTKS: 


177560 




ITKBi 


177562 




$TPSI 


177564 




tTPBt 


177566 




tNULLi 


.BYTE 





tFILLSl 


.BYTE 


2 


8FILLCI 


.BYTE 


12 


STPFLGl 


.BYTE 





SR^GAD! 


.WORD 





tREG0l 


.WORD 





tREGlt 


.WORD 





IREe2l 


.WORD 





tREG3l 


.WORD 





9REG4I 


.WORD 





(REG5I 


.WORD 





SREG6i 


.WORD 





tREC7l 


.WORD 





IREG10t 


.WORD 





(REG! 11 


.WORD 





ITIMESI 







tFSCAPEi0 




tOUESi 


.ASCII 


/T/ 


9CRLFJ 


.ASCII 


<15> 


tLFI 


.ASCIE 


<12> 
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COMMON 


TAGS 




214 


001334 


020105 


051130 


051505 








235 


091333 


053116 


000 










216 




001336 








.EVEN 




217 


001236 


005015 


047516 


043516 


MSG2> 


.ASCII 


<15><13>/N0NE/ 


239 


001244 


000 












219 
















240 


001245 


015 


041413 


053116 


MSG3I 


.ASCIZ 


<15><12>/CNT RDY DIDN'T SET/ 


211 


001352 


051040 


054504 


043040 








2<»2 


001260 


043111 


033516 


030124 








24) 


001266 


042533 


000134 










244 
245 


001272 


005015 


051104 


053111 


MSG4I 


.ASCIZ 


<1S><12>/DRIVE / 


246 


001300 


020105 


000 










247 
















248 


001303 


015 


040412 


046114 


MSG5I 


•ASCII 


<15><12>/ALL DRVS/ 


249 


001310 


042040 


0S3122 


123 








250 
















251 


001315 


040 


0S1104 


050117 


MSG6i 


.ASCIZ 


/ 0R0PD/<15><ia> 


252 


001 322 


006504 


000012 










25 3 












.EVEN 




254 
















255 










IRKI) REGISTERS 




256 










SIF FOR 


ANY REASON THE REGISTER ADDRESSES APE DIFFERENT FROM THESE 


257 










> (GIVEN 


BELOW), 


THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE 


258 










(MODIFIED SO THAT THE CORRECT ADDRESS IS USED. 


259 










J 






2«t9 












.EVEN 




261 


001326 


177400 






RKOSI 


177400 




262 


001330 


177402 






RKERt 


177403 




263 


0(t1 332 


177404 






RKCSI 


177404 




264 


001334 


177406 






RKWCi 


177406 




265 


001 316 


177410 






RKBAI 


177410 




266 


001340 


177412 






RKDAI 


177412 




267 


001342 


177415 






RKOBI 


177416 




268 
















269 
















27rf 










(TAGS AMD GFNERAL DATA AREA 


271 










1 






272 










} 






273 

















IFLAG TO BE SET TO 1 WHEN ON SIMULATOR 
IFLAG FOR PRINTING PROGRAM TITLE 
ICONTAINS ADDRESS OF THE DRIVE UNDER TEST 
ICONTAINS THE NUMBER OF DRIVES CHECKED. 
Ill IS INCREMENTED EACH TIME THE TESTS FOB 
I A DRIVE IS COMPLETED. 

ICONTAINS THE POINTER TO THE DRIVE FLAG (DRIVE0 

I-DRIVE7) OF THE DRIVE TO BE CHECKED NEXT. 

I6ENERAL INDEX FOR KEEPING COUNT 

I GENERAL INDEX 

I GENERAL COUNT REGISTER 

ICOUNT REGISTER USED FOR 'DRESET' SUBROUTINE 
ITIMER REGISTER 

ISET, TO INDICATE A PARTICULAR 
lERPOR CONDITION 



274 
275 
276 
277 
279 
279 
290 
291 
292 
293 
394 
3B5 
396 
287 
298 
704 



001344 
001 346 
00t )5« 
001352 



001356 
001 360 
001 362 
001 364 
001360 
001370 



000000 

000000 



001354 000000 



0P0000 
000000 
000000 
000000 
000000 
000000 



STMULI 

FTITLE! 

DRIVAOl 

DRVDON: 



DRVPTPI 

INDXlI 

INDX2: 

COUNT; 

C0UNT1 I 

TIMLRl 

EFLGtl 
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SEQ ee24 



340 
291 
293 
29) 
294 
295 
296 
297 
298 
299 
)00 
101 
102 
103 
304 
)0S 
306 
307 
309 
309 
310 
311 
312 
31 3 
314 
315 
316 
317 
318 
119 
12iJ 
321 
372 
323 
374 
125 
126 
327 
328 
379 
3 30 



001372 
001374 
001376 
001400 



001404 
001 406 



001410 
001412 



001414 
001416 
001 420 
001432 
001424 
001426 
001430 
001432 

001434 
001416 
001440 



000100 
001000 
014500 
000300 



001 403 000330 



000000 
000000 



000000 
000000 



000000 
000000 
000000 
000000 
0110000 

000000 
003000 
000000 



SEEK 01 
SEEKll 
SEEK3I 
RKPRK 



100 
1000 
14500 
200 



RKTECI 2 20 



rFLAGi 
OODEVKi e 



DDPCHt 
DRIVSl 



ICONTAINS ADDRESS Of CYLIMOEP 3 

ICONTKINS ADDRESS Of CYLINDER 20 

iCONTklMS ADDRESS Of CTlilHOER 312 

ICO0TAIIIS THE CPU lEVEl AT WHICH 

IHKU "lOBHALtT IBTEBROPTS. THIS HOBO 

iSHOObD BE CHANCED IF RKll IS DCSINCATEO 

th BR IiCTEL OTHER THAN 5. E.G. IF IT IS CHANGED 

ITO tr THIS MOW) SHOUbD BE CHANCED TO 340. 

(CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH 

IRKU INTERRUPT*. IF THIS IS NOT 80> CHANCE 

I THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS. 

lOSKO TO DETERMINE WHICH OF Rlt-05F DRIVES ACTIVE 
I* ir EVEN DRIVE 
1-1 IF ODD DRIVE 

I IF PROGRAM LOADED FROM RK0S> CONTAINS 
» ADDRESS OF DRIVE WITH RKDP PACK 
ICORTAIRS TRE NQNSER OF DRIVES PRESENT 



ITHE FLAGS BELOW (BIT ») URB SET TO I TO IHOICdTE THAT A PARTICULAR DRIVE 
»IS PRESENT AND IS TO BE TESTED. BIT 13, If SET. INDICATES THAT THE DRIVE 
(WAS DROPPED »FTEP MAXIMUM ALLOWABLE NVMBBR OF ERRORS OCCURED ON THAT 
IDRIVE (SW 6 SET). 

IIF MOPE THAN 5 ERRORS OCCUR IN THE HARDNARC POLLING TEST (LAST) 
(THEN ALL DRIVES ARE DROPPED, BUT BIT 13 IS HOT SET. 



DRIV0: 





IFLM SET TO 


DPIVll 





IFOR DRIVE 1 


DBIV2I 





IFOR ORIVK 3 


DRIV3I 





IfOR DRIVE 1 


DRTV4I 





IFOR DRIVE 4 


DRIVSl 





IFOR DRIVE 5 


DP1V6I 





IFQR DRIVE « 


DRIV7I 





IFOR DRIVE 7 


T56FLCI 







PHYORVI 







SIZVETl 
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331 
332 
33) 
334 
135 
136 
137 
338 
119 
140 
341 
347 
113 
114 
145 
146 
347 
348 
349 
)50 
it I 
352 
353 
354 
355 
356 
357 
35S 

3614 
361 
362 
363 
364 
365 
366 
167 
168 
J69 
370 
371 
5T2 
173 
174 
175 
176 
177 
378 
379 
3*0 
381 
383 
1S1 
384 
385 
3R6 



.SBTTl. EHhOP POINTER TABLE 

;*THI$ TABLE CONTtlNS THE IHFOPMATION FOP EACH gRROR THAT CAN OCCUR. 

(•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

r>I.OCATI0M IITEMB. THIS NUMBER INDICATES MHICH ITEM IN THE TABLE IS PERTINENT. 

(•NOTEtl IF IITEMB IS THE ONLY PERTINENT DATA IS ((ERRPC). 

;>N0TE2t EUCH ITEM IN THE TABLE CONTAINS 4 POINTERS E^CPLAINCD AS FOLLOHSi 

I* EM If POINTS TO THE ERROR MESSAGE 

)* DH II POINTS TO THE DATA HEADER 

I* DT llPOINTS TO THE DATA 

I* or llPOINTS TO THE DATA FORMAT 



THE EPROR tTEHS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 
USFn IN THIS PFOGRIM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO 
THE ITEM NUMBER IN THE ERROR TABbE. THUS 'ERROR 1' IN THE 

PROGRAM CORRESPONDS TO 'ITEM 1* IN THE ERROR TABLE. 
'EMIll' IS THE POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED 
OUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 'ERROR 1' THE ERROR 
Mf.SSACE TYPE OUT WILL BE 'TIME OUT ON RKll REG*. 

'DHII*' IS THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT 
IMMEDIATELY AFTER THE ERROR MESSAGE. 

'DriM* SERVES AS A POINTER TO THE MEMORY LOCATIONS HHERE 

THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PC. CONTENTS 

nr RKCS ETC.) WILL BE PICKED UP FROM. 

THE LAST ROW CONTAINING 'V' SERVES AS A TERMINATOR. 

EXAMPLEI 

IE ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 
(177400), BECAUSE OF SOME FAULT. THE FOLOHIHG TYPEOUT WOULD 
OCCUR ON THE TELETYPE. 

TIME OUT ON RKll REG 

PC REG 
littii 177400 

NOIE THAT •llfii WOULD BE THE ACTUAL PC WHERE 'ERROR 1' IS LOCATED. 

THE ERROR HANDLER IS LOCATED AT '(ERROR* , THE ERROR CALL IS AN 'EMT' 
INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
ITEMS IN THE ERROR TABLE. 
THUS 'ERROR I' IS 104001 

'ERROR 18)' IS 104126 ETC. 



rEPROfi ITENS T»BI,E 
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SCQ 0026 



)87 
188 
389 
190 
19t 
192 
193 
394 
395 
196 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
423 
421 
122 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
4 36 
437 
438 
439 
440 
441 
442 



001443 
001*44 
001446 
001450 



001452 
001454 

001456 
001460 



001462 
001464 
001466 
031470 



001472 
001474 
001476 
001500 



001502 
001504 
001506 
001510 



001512 
001514 
001516 
001520 



081522 
001534 
031S26 
001530 



001532 
001534 
001536 
001540 



025300 
032335 
031640 
000000 



027151 
033011 
031660 
000000 



035335 
031745 
031630 
000000 



025354 
032111 
031622 
000000 



035366 
032053 
031660 



025376 
032053 
031660 



025406 
033111 
031633 
000000 



035437 
03222S 
031640 
000000 



eMi2 

0H44 

DT20 



K>«70 
OHM 
0T26 



E>416 

DH4 

BT3 



EI421 
DH34 
DTI 




Eh30 
OH30 
DT26 




KMlt 

DT3e 




BH33 
DH34 
DTI 





IITEH 10 



I'StN* IS SET 

J PC BI^CS B^EB '"^D* ^'^''* 

MERRPC 8REG0 IREGl »FEG2 •BEGJ 



JCNTRt. ROI DIDH'T SET OH REAO/ntT tMU DISK ADDRESS 
IPC PKCS RKER RKHC 

ItERRPC 8REG0 tREGl tREOa 



IRKOA HRORS Artn SSE 
IPC EXPCT RECVD 

ItERRPC «REG0 8REG1 



IRKDS EBSOR 
IPC RKDt 
ItERRPC tKESe 



I'DPli' BIT SET> CHECK DRIVE POHER 
IPC KKCfl KKER RKDS 

ItERRPC tRCOe IREGl tRCG2 



|*DRO' BIT SCTf CHECK DRIVE 
IPC RKCS RKER RKDS 

ItERRPC tRE60 tREGl IREC2 



I'RKBS* BIT WOT SET 
IPC RKDS 
ItERRPC tREGB 



EH33 
DH44 
DT20 



I'DRt' HOT SET 
IPC RKCS 
ItERRPC tRECa 



RKER 
tREGl 



RKDS 
tRCC3 



RKDl 
tREC3 
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443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
156 
457 
458 
459 
460 
461 
462 
463 
464 
465 
166 
467 
168 
469 
470 
471 
472 
473 
474 
475 
476 
177 
478 
479 
480 
481 
183 
483 
484 
495 
486 
487 
488 
489 
490 
491 
493 
493 
494 
495 
496 
497 
499 



(ITEM 11 



001542 
0(<1544 
001546 
001550 



001552 
0^1554 
001556 
001560 



001562 
001564 
001566 
001570 



001572 
001574 
001576 
001600 



001602 
001604 
001606 
001610 



001612 
001614 
001616 
001620 



001622 
001634 
001636 
001630 



0^1632 
001634 
001636 
001640 



,125147 
032111 
931623 
0015000 



025466 
032127 
031633 
000,900 



025521 
032147 
031630 

000000 



025551 
031745 
031630 
000000 



025605 
032177 
031630 
000000 



025645 

032111 
031633 
000000 



025313 
031745 
031630 
000000 



025702 
032046 
031654 

000000 



EM34 
nH34 

nri 



lITEH 13 



EM35 
0H35 

on 



13 

CM36 
DH3e 
0T2 




EH37 
DH4 

DT2 



EM40 
DH4e 
DT2 



EH41 
DH34 
DTI 



EM13 
DH4 

DT2 




EM43 
0H21 
DT71 



I'SOK* DID HOI SET 
IPC RKDS 
ItERRPC tREG* 



I 'SEC COHHTR' DIDH'T COOMT TO 
IPC SEC-CHTR 
ItERRPC tREG0 



|*SEC COUNTR* DIDH'T IHCREMEHT 
IPC PRSHT-COOHT HXToCOUHT 
ItERRPC tRtOa tREGl 



{'SECTOR COOHTER' INCREMEHTED HROHO 
IPC EXPCTD RECVD 
ItERRPC tRKCB tREGl 



I DIDH'T GET SC«8A FOR THIS 8CCT0R 
IPC SECTOR RKDS 
ItERRPC tREOB (REGl 



*eRROR'''R/H/S ROY' SHOULD BE SET 
IPC RKDS 
IIERRPC tRESe 



IRKBA ERROR 
IPC EXPCT 
ItERRPC tREG0 



RECVD 
tREGl 



lUNEXPECTEO RVU INTERRUPT 
IPC 

ItERRPC 
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SCO M2B 



499 
S00 
S01 
503 
503 
504 
50$ 
506 
507 
508 
509 
510 
511 
513 
511 
514 
515 
516 
517 
518 
519 
520 
521 
572 
52J 
524 
525 
526 
527 
528 
529 
51H 
5?l 
512 
5U 
514 
5J5 
5J6 
537 
518 
539 
540 
541 
543 
54J 
544 
545 
546 
547 
548 
549 
559 
551 
553 
553 
554 



IITEN 21 



001643 
001644 
001646 
001630 



001652 
001654 
001656 
001660 



001662 
001664 
001666 
001670 



001673 
001674 
001676 
001700 



001703 
001704 
001706 
001710 



001712 
001714 
001716 
001730 



001722 
001724 
001726 
001710 



001712 
001714 
001736 
001740 



025734 
B1232S 
031640 
B00f0t 



B26010- 
032229 
031640 
000000 



036096 
033093 
031660 
000000 



026114 
031745 
031630 
000000 



036156 
0)2053 
0)1660 
000000 



026305 
0)3225 
0)1640 
n00000 



026260 
031749 
031630 



026309 
0)3053 
0)1660 
000000 



F.Ht* 
DH44 
OT20 



(ITEM 32 



FM45 
DH44 
DT30 



IITEN 2) 



EM46 
OH30 
DT36 



lITEM 34 



eN47 
DH4 

DT2 



EM50 
DH30 
DT26 



(ITEM 26 



EHSl 
DH44 
DT20 




I ITEM 27 



EH92 
DH4 

DT2 



IITEM )0 



OH30 
DT36 



j'CHTRI. PDT' DIDM'T SET AFTER SEEK OR DRIVE RESET 
IPC RKC5 RKER RKOS RKOA 

KERRPC tREG0 



tRECt tREG2 (REGS. 



I 'ERR' OR 'HE' SET ON SEEK OR DRIVE RESET 
IPC RKCS RKER RKDS RKDA 

ItERRPC 8REG0 (RE61 •REG3 IRC6) 



IRKER BIT> OH SEEK OR DRIVE RESET 
IPC RKCS RKER RKDS 

IIERRPC tREGe SREGl 8REG2 



I RKCS CHANGED AFTER rUNCTION HAS DORE 
IPC EXPCT RECVD 

IIERRPC IREG0 IRRGl 



I'R/H/S ROT' DID NOT CLEAR 
IPC RKCS RKER RKDS 
MERRPC tREGe IREGl •RE62 



I'R/H/S RDT' DIDN'T SET AFTER SEEK OR DRIVE RESET 
IPC RKCS RKER RKDS RKDA 

IIERRPC IRBOO IREGl •REG2 IREG3 



I RKDA CHANGED APTER SEER 
IPC EXPCTD RECVD 

IIERRPC IREGB SREGl 



t'CNTRL RDT' DIDN'T CLEAR AS GO HAS SET 
IPC RKCS RKER RKDS 

KERRPC IREOfl IRECl •REG2 



[NOEC 


-1 1-DZRKK 


-D HACTll 37(1006) 04-OCT<76 1611 


06 PAGE 13 


tKKD.PtI 2i 


!-SeP-76 09147 ERROR 


POINTER TABliE 


555 




lITEM 


31 




556 










557 


001742 


026)50 


EH54 


I'CNIRti ROT' DIDN'T SET OH DOING HBITE/PMT STARTIHG 


558 








IFRDH <DSK»ADRBS> 


559 


001744 


033373 


DH54 


IPC RKCS RKER RKDS RKDA 


560 








IDRVI CTL <DSK>ADItCS> SUR SECTR 


561 


001746 


0)1673 


DT54 


IIERRPC IREOS IRECt IRBG3 •RCa3 


562 








IIREG4 IREOS IREGS IREO* 


56) 


001750 


000000 







564 










565 




IITEM 


33 




566 










567 


001752 


026442 


CMSS 


I'HE' OR 'ERR' ON HRITE/PHT STARTING FROM 


568 








l<DSK-ADRES» 


569 


001754 


0)2272 


DH94 


IPC RKCS RKER RKDS RKDA 


570 








IDRVt CTL <DSK«ADRES> SOR SECTR 


571 


001 756 


0M673 


DT54 


IIERRPC IRCa0 IREGl IREGl IREG3 


573 








IIREa4 IREOB IRSaS IREG7 


573 


001760 


000000 


e 




574 










575 




lITEM 


33 




576 










577 


001762 


026521 


CN56 


IPKDA INCREMENTED WRONG ON WRITE OR HRITE FORMAT 


578 


001764 


0)2401 


DHS6 


IPC EXPCTI DRVt CTL SUR SECTR 


579 








iRECVOt DRV* CYL SUR SECTR 


580 


001766 


0)1673 


DT94 


IIERRPC IREGl IREGl •RE02 •REa3 


5«1 








IIRB64 IREQ9 IREG6 •REG7 


582 


001770 


000000 







583 










584 




IITEH 


34 




585 










586 


001772 


036560 


EM97 


IRKHC DIDN'T OVERFLOH ON HRITE OR NRITB FORMAT 


587 


001774 


0)1773 


0H5 


IPC RECVD 


588 


001776 


0)1632 


on 


IIERRPC IREG0 


589 


003000 


000000 







590 










591 




IITEM 


39 




592 










593 


003002 


036616 


EM60 


IRKBA INCREMENTED WRONG ON HRITE OR WRITE FORMAT 


594 


003004 


031745 


0H4 


IPC EXPCT RECVD 


595 


003006 


0316)0 


DT3 


IIERRPC IREG0 IREGl 


596 


002010 


000000 







597 










598 




IITEM 


36 




599 










600 


002013 


036655 


EM61 


IRKER SET, ON HRITE/READ/FORMAT 


6H 


002014 


03305) 


DH30 


IPC RKCS RKER RKDS' 


602 


002016 


0)1660 


DT26 


IIERRPC tl>EG0 IREGl IREr,2 


60) 


003030 


!100O00 







604 










605 




IITEM 


37 




606 










607 


R02022 


026712 


EM62 


IRKDB ERROR 


608 


002034 


H)1745 


DH4 


IPC EXPCT RBCVO 


609 


Pi)2i<)26 


0)16)0 


DT2 


MERRPC tREG0 IMEGI 


610 


(107090 




CI 
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SCO 













6 1 2 






1 ITEM 


40 


* 1 ^ 










61 * 


002032 


026724 






6 1 5 


002034 


032401 




DH56 


61 6 










61 7 


002036 


031672 




DT54 


61 8 










61 9 


002040 


000000 






620 










621 








^1 


622 










623 


0^2042 


026770 




EM64 


5'* 


002044 


032S06 




DH64 


o 25 


002046 


031630 




0T3 


626 


00 20S0 


000000 






627 










628 








42 


639 










630 


002052 


027033 




EM6S 


611 


002054 


03174S 




DH4 


6 92 


0020S6 


931630 




DT2 




002060 


000000 




a 


6 34 










6 35 






7 ITCH 


43 


6 36 










6 37 


002062 


027077 




EM66 


638 


002064 


032532 




DH66 


6 39 


002066 


031660 




DT26 


1 1? 


002070 


000000 






















t ITEM 


44 


643 










644 


002072 


027136 




EM67 


6 4S 


002074 


032570 




0H67 




002076 


031660 




0T26 


647 


002100 


00-3(^00 







648 










649 






J ITEM 


45 


65^ 










6S 1 


002102 


027151 




f:M70 


6S2 










6^3 


002104 


032272 




DH54 


6S4 










6SS 


002106 


031672 




0154 


656 










657 


002110 


000000 







659 










659 






lITEM 


46 


66a 










661 


002112 


027242 




E"<71 


662 










663 


002114 


032272 




DH54 


664 










665 


002116 


031672 




DT54 


666 











JRKO* IMCREHCTTEO WRO«C OX READ OR READ TORHAt 
fPC KPCTI ORTI CYI. •»« StCn 
IRECVOt DR»# C«L »«"« «CTR 

iiERRPc nmaa iregi tna iregs 

t«RES4 tREGB *RE66 IRCGT 



FRKHC DID NOT OfERFLOU 0« READ OB READ rORMAT 
tPC RKHC RKDA 

itERRPC SREOa IREGl 



IRKB* incremented WRONG ON READ OR READ POPHAT 
IPC EXPCT RECVD 

ItERRPC IRBG0 IRECl 



I INCORRECT HEADER FROM 'SECTOR' 
J PC SECIR EWCT PECVO 
KERRPC tREG0 IREGl «REG2. 



(DATA ERROR 
I PC EXPCT 
IIERRPC IREGfl 



RECTO 
IREGl 



DSK'AORES 
IREG3 



I'CNTRL RDT* DIDN'T SET ON DOING READ/rMT STARTING 
I rRON <D8K«ADRCS> 

IPC RKC8 RKER RKDS RKDA 

iDRVf CTb <08K«ADRES> SUR SECtR 

IIBRitPC IRCGfl IREGl IREG2 IRKCJ 
IIRE04 IRCGS tRe66 IREG7 



I 'HE' OR 'ERR' BIT SET ON READ/FHT STARTING 
I FROM <08K-ADRE8> 

IPC RKC8 RKER RKDS RKDA 

lORT* CTL <OSK>AORES> SUR SCCTR 

IIERRPC IREGt IREGl IRECa IREG3 
IIRCC4 IREGS IRE66 IREGT 
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667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
719 
719 
720 
771 
722 



002120 000000 



002122 
002124 
002126 
002130 



002132 
002134 
002136 
002140 



002142 
002144 

002146 
002150 



002152 
002154 
002156 
002160 



002162 
002164 
002166 
002170 



002172 
002174 
002176 
002200 



1402202 
002204 
002206 
002210 



002212 
002214 
002216 



027330 
03174S 
031630 
000000 



027362 
032111 
031630 
000000 



027434 
032630 
031632 
000000 



027S04 
032630 
031622 
000000 



027S54 
033004 
031622 
•00000 



027617 
031745 
031630 
000000 



027654 
032651 
031660 
00000,) 



027677 
032225 
031640 




47 

EK72 

DH4 

DT2 



I ITEM S0 



EM7} 
DH34 
DT2 




EM74 
DH74 
OTl 
• 



I ITEM S2 



EN78 
DH74 
DTI 
B 



I ITEM S3 



EN76 

0H117 

DTI 



I ITEM 54 



EM77 
0H4 

DT2 



EM 100 
OH100 
DT26 



Ei^lHI 
DH44 

Dr20 



IHR0H6 DRIVE ID IN RKDS AFTER SEEK 
IPC EXPCT RBCVO 
IIERRPC IREG0 IREGt 



IHAROHARE POLL, DRIVE ID BIT8(1I»1S) SHOULD BE CICAR 
I PC RKDS 
IIERRPC IREG0 



IHAROHARE POLL> INTERRUPTING DRIVE f NOT PRESENT 
IPC DRIVE • 
IIERRPC IREG0 



I 'DRIVE *' DID NOT INTERRUPT DURING HARDHARK POLti 
IPC DRIVE I 

IIERRPC IREC0 



ISCP DID NOT SET AFTER NAS DONE 
IPC RKCS 
ItERRPC IRE60 



IRKOA CHANGED AFTER 'DRIVE RESET' 
IPC EXPCT RECVD 

ItERRPC tREG0 IREGl 



I DATA ERROR AT WORD* 
IPC WORDt EXPCT 

ISERRPC IREG0 IREGl 



RECVD 
IREG2 



ICNTRL RDY DID NOT SET AFTER READ CHECK 
fZ RKCS RKEH RKDS RKOA 

ISERRPC tReC0 SRECl tREG2 tRFG) 



H«INOEC-lfDZRKR-0 NKCYll 27(10«6) e4-0CT>T6 16106 PkGC 15 

DIRKKD.PU 22-SEP-T6 0»l«7 ERROR POINTER TKBLC 



723 
7J4 
725 
726 
727 
728 
729 
739 
731 
732 
733 
73* 
785 
7J6 
737 
738 
739 
749 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
759 
759 
760 
761 
762 
761 
754 
765 
766 
767 
768 
769 
770 
77t 
772 
773 
774 
775 
776 
777 
778 



B02229 900000 



002222 027741 

002224 032053 

092226 931669 

002230 000000 



002232 
002234 
002236 
002240 



002242 
002244 
002246 
002250 



002252 
002254 
002256 
(102260 



002262 
092264 
092266 
992270 



902272 
002274 

002276 
002300 



002302 
002304 
902306 
002310 



002312 
002314 
002)16 



027765 
032706 
031622 
000000 



030003 
032722 
031630 
009000 



030094 
031749 
031630 
000000 



030112 
03174S 
031630 

000000 



030143 
032746 

031660 
000000 



030204 
032225 
031640 
000000 



030247 
032053 
031660 



EN102 
DH30 
DT26 




J ITEM p0 



EM103 

Otl 



CMt9« 
0X104 
0T2 



lITEH 62 



EM105 

0H4 

DT2 



I ITEM 63 



Em06 

0H4 

DT2 



ftTGM 64 



EM107 
DH107 
DT26 




I ITEM 65 



EHIIO 

DH44 

DT20 



t ITEM 66 



I 'ERR' or 'HE' 
IPC RKCS 
MERRPC IRE60 



SET ON READ CHECK 
RKER RKDS 
IRECl *REG2 



C<tltl 
DH30 
0T26 



I 'CSC* OM READ CHECK 
>PC RKSR 
IIERRPC «ReC0 



JRKBC 010 NOT OVERrbOH OH READ CHECK OP WRITE CHECK 
IPC RECVD RKCS 

MERRPC IRGeO IRECl 



IRKOk IRCREMGNTCD HR0N6 OH READ CHECK 
IPC EXPCT RECVD 

ItERRPC tREGO 8REG1 



IRKBA CHANGED AfTER READ CHECK 
IPC EXPCT RECVD 

MERRPC IRE60 tREGl 



INEHORT MORD CHANCED AFTER READ CHECK 
IPC LOC EXPCT RECVD 

MERRPC tREGO tREGl tREG2 



iCNTRt RDI DID ROT SET AFTER WRITE CHECK 
IPC RKCS RKER RKDS RKDA 

MERRPC tREGO tRCCl tRE62 tREG3 



IHE OR ERR BIT SET AFTER DOING WRITE CHECK 
IPC RKCS RKER RKDS 

MERRPC tRBGO tREGl •REG2 
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779 
7a0 
7<>! 
7«2 
7q3 
7114 
785 
786 
787 
788 
7 89 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
893 
8»4 
8B5 
806 
807 



002320 000000 



002322 
002324 
002326 
002330 



002332 
002334 
H02336 
002340 



002342 
002344 
002346 
002350 



002352 
002354 
0023S6 
002369 



030274 
032053 
031660 
000000 



030315 
031745 
031630 
0D0000 



030354 
031745 
031630 



030413 
031745 
031630 
00000(9 





67 

EH112 

DH30 

DT26 



EMI 13 
OH 4 
DT2 




JITEN 71 



EHtl4 

DH4 

nT2 



EMUS 
DH4 
DI2 




I WRITE CHtCK ERROR 
IPC RKCS RKER 

ItERRPC tREGO tREGl 



RKDS 
tRCC2 



IRKDA IRCREHENTCO WRONG ON WRITE CHECK 
IPC EXPCT RECVD 

MERRPC tREGO tREGl 



IRKBA INCREMENTED WRONG ON NRITC CHECK 
IPC EXPCT RECVD 
MERRPC tREGO tREGl 



IRKBA INCRCHENTED WITH IBk SET 
IPC EXPCT RECVD 

MERRPC tREGO tREGl 



809 
810 
811 
812 
8|3 
814 
8)5 
816 
817 
818 
819 
8J0 
871 
822 
82) 
824 
825 
826 
827 
828 
879 
810 
831 
8)2 
81) 
834 



002362 
002)64 
002366 
002370 



002372 
002374 
00237b 
092400 



002402 
002404 
002406 
032410 



002412 
03241 4 
092416 



030447 
032651 
031660 

000000 



030522 
03)004 
031622 
000000 



0)B567 
0))004 
031622 

000000 



0)0642 
03)004 
031622 



exil6 IWROHG HEHORI LOCATION CHANGED WITH IBA SET 
DH100 IPC WOROI EXPCT RECVD 

0T26 MERRPC IRECO tREGl tREG3 



EM117 IRKII DID NOT INTERRUPT WHEN IDE WAS SET 

DHH7 IPC RKCS 

DTI ItERRPC tREGO 





EN120 iRKll DID NOT INTERRUPT AFTER SEEK WAS INITIATED 
DH117 IPC RKCS 
DTI MERRPC tREGO 



eMl2) iSCP SET BEFORE StCK 
DH1I7 IPC BKCS 
DTI MFRPPC »RfCG0 
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ais 

• 36 
837 
939 
839 
840 
841 
842 
843 
844 
84S 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
856 
859 
860 
861 
1)62 
86) 
864 
865 
866 
867 
868 
869 
87H 
871 
872 
873 
874 
975 
876 
877 
878 
879 
883 
881 
892 
883 
8St 
SB5 
886 
987 
888 
889 
890 



002420 000000 



002422 
002424 
002426 

003430 



002432 
002434 
002436 
002440 



002442 
002444 
002446 
002450 



002452 
002454 
002456 
002460 



002462 
002464 
002466 
002470 



002472 
002474 
002476 
002500 



002502 
002504 
002506 
002510 



002512 
002514 



0)0700 
032053 
031660 



030747 
033004 
031622 
000000 



031006 
033004 
031622 
000000 



0)1050 
031716 
031630 
000000 



0)1107 
033020 
031630 
000000 



031150 
03)020 
011630 
000000 



031212 
03)046 
0)1660 



I ITEM 77 

EH122 
DH30 
DT26 


lITBM 100 

eNi2i 

DHUT 
DTI 



lITEH 101 

EM124 
0H117 
DTI 



J ITEM 102 

EH12S 

0H2 

DT2 



031247 

0)3105 



EH126 
OH126 
DT2 



I ITEM 104 

EH127 
OKI 26 
DI2 



IITEH 105 

EM1)0 
DH130 
DT26 





(ITEM 106 



EN131 

0H131 



IRRU DID HOT meRROM AFTIR SEEK CONPLCTED 
IPC RKC8 RRER RKDS 

IIERRPC' tRES* IRE61 •REGS 



ICNTRb RESET DID HOT CWAR 'SC Bit 
IPC RKC* 
IIERRPC' IRBCf 



IRKII DID HOT IHtERROPT AfTER READ HAS DOHE 
IPC REC8 
I8ERRPC 8 REGS 



ICNTRL RESET DID NOT CLEAR REGISTER 
IPC REGADD RECVO 
I8ERRPC IREGO IREGl 



IRKtl DID NOT INTERRUPT AT CPU LEVEL 
IPC LEVEL RKCS 
I8ERRPC' IREGS IREGl 



IRKll INTBRRDPTED AT HROHG CPU LEVEL 
IPC LEVEL RKCS 
IIERRPC IREOe IREGl 



I 'ERR BIT' DID NOT SET IN RKER 
IPC RKCS RKER ERR BIT 

IIERRPC IRE60 IREGl IREG2 



I HE OR ERR DID NOT SET 
IPC RKCS RKER 
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891 
392 
89) 
894 
995 
896 
997 
898 
899 
900 
901 
902 
90) 
904 
9^»5 
9a6 
907 
908 
909 
9)a 
911 
91 2 
913 
914 
9l5 
916 
917 
918 
919 
920 
971 
922 
9?) 
924 
925 
926 
927 
928 
979 
930 
931 
9)2 
933 
934 
935 
936 
9)7 
9)8 
939 
940 
941 
942 
943 
944 
9«5 
946 



002516 
002520 



002522 
002524 
002526 
002530 



0025)2 
002534 
002536 
002540 



002542 
002544 
002546 
002550 



002552 
002554 
002556 
002560 



002562 
002564 
002566 
002570 



002572 
002574 
002576 
002600 



002602 
002604 
002606 
002610 



031630 
000000 



031274 
031745 
031630 
000000 



031306 
033133 
031660 
000000 



031331 
033105 
031630 
000000 



031372 
031745 
031630 
000000 



030204 
032011 
0)1660 
000000 



031427 
032225 
031640 
000000 



0)1445 
033171 
031640 

000000 



IIERRPC IREC0 IREGl 



002612 0)1514 



JITEM 107 

EH132 
DH4 
DT2 


ITTEH 110 

EMI 31 
DH113 
DT26 



111 

EM134 

DH131 

0T2 



112 

EMUS 

0H4 

DT2 



I ITEM 11) 

EMI 10 

0H14 

DT26 



I ITEM 114 

EM1)7 

DH44 

DT20 



EM140 
PHMO 
DT20 



llTEM 116 

E'^Ml 



I RKER ERROR 
IPC EXPCT 
IIERRPC IRBGO 



RECVO 
IREGl 



INXC BIT DID NOT SET 
IJ>C RKCS RKER 

IPC IREGO IREGl 



RKDA 
IREG2 



IRKll DIOH'T INTERRUPT OH SOri ERROR 
IPC RKCS RKER 

IIERRPC IREGO IREGl 



I HEX BITS IHCREMBHtEO HRONG IN RKCS 
IPC eXPCTD RECVO 

IIERRPC IRCGO IREGl 



ICNTRL RDY DID NOT SET AfTER URT CHK 
IPC RKCS RKER RKHC 

IIERRPC IREQ* IREGl IREG2 



I 'MPS' HOT CLEAR 

IPC RKCS RKER RKDS PKOA 

IIERRPC IRES0 IREGl IREGS IREG3 



I DATA ERROR OH TRANSfER FROM DISK TO TTY 
IPC EXPCT RECVO RKBA RKCS 

IIERRPC IREGO IRCGI IREG2 IREG) 



I 'DRIVE «' PRESENTf BUT NOT SPECIFIED 
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StO M3« 



94T 




032630 




DH7 4 


yPC DRIVB 




002616 


031622 




DTI 


IIERRPC tRE60 


949 


002620 


000000 





















951 






y ITEM 


117 




9S3 












993 


002622 


035266 




CHI 1 


irknc error 


9S4 


002624 


031745 




DH4 


IPC EXPCT 


955 


002636 


031630 




DT2 


MERRPC •ReC0 


956 


002630 


000000 









957 






JITEM 


130 




958 


002632 


031560 




em 42 




959 


002634 


000000 









960 












961 












963 













RCCVO 
•RECl 
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08147 






003636 


000005 






964 










*55 










466 


003640 


012706 


001100 




467 


002644 


005036 






468 


003646 


022706 


001140 




969 


003652 


001374 






970 


002654 


012706 


001 100 




971 










972 


002660 


912737 


023046 


000030 


973 


003666 


012737 


000340 


000022 


974 


002674 


012737 


03232B 


000030 


975 


003702 


012737 


000340 


000032 


976 


002710 


012737 


024574 


000034 


977 


002716 


012737 


000340 


000036 


979 


003724 


013737 


034674 


000014 


979 


002732 


013737 


000340 


0000II 


980 


002740 


005037 


001206 




981 


002744 


009037 


001210 




982 


002750 


1 13717 


000001 


001111 


983 


002756 


013737 


003756 


0011M 


984 


003764 


012737 


003764 


00111* 


985 










986 










997 


003773 


013746 


000004 




988 


003776 


012737 


001033 


000004 


989 


003004 


012737 


177570 


001140 


990 


003013 


012737 


177570 


001143 


991 


003020 


022777 


177777 


176112 


992 


003026 


001012 






993 










994 


003030 


000403 






995 


003033 


012716 


003040 




996 


003036 


000002 






997 


003040 


013737 


000176 


001140 


998 


0.93046 


013737 


000174 


001143 


999 
1000 


003054 


012637 


000004 




1001 










1002 










1003 


003060 


005337 


177777 




1004 


003064 


001044 






1005 


003066 


104401 


003134 




1006 










1007 


003072 


005737 


000043 




1008 


003076 


001006 






1009 


003100 


023727 


001140 


000176 


1010 


003106 


001005 






t0l 1 


003110 


104406 






1012 


003113 


000403 






101 3 


003114 


112737 


000001 


001 134 


1014 


00317; 








1015 


003172 


000425 






1016 










1017 


00)1 76 








101 8 


Pl^l 1 76 


812700 


001410 
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START! RESET iCbUR THE BUS 

,S»TTL INITIAUEE THE COHHOR TAGS 
IICLEkR THE COMMON TAGS (8CNTA6) AREA 



nriRST LOCATION TO BE CLEARED 
I (CLEAR NENORY LOCATION 



If LOOP BACK IP NO 

r I SETUP THE STACK POINTER 



MOV fSCMTACiR6 
CLR (R6)t 
CHP ISHRrRS I IDONET 

BNE .'b 
NOV ISTACKfSP 
MINITIALIIE A TEW VECTORS 

NOV l«SCOPE,ftIOTVEC I HOT VECTOR rOR SCOPE ROUTINE 

MOV II4a,»(I0TVSC'*l IILEVEL 7 

MOV 88 ERROR >**ENTVE:' MEMT VECTOR FOR ERROR ROUTINE 

NOV I140(0IEMTVEC«2 ULETEL 7 

MOV IITRAPrAITRAPrtC ||TRAP VECTOR rOR TRAP CALLS 

MOV l34«f»ITRAPVEC«3lLEVEL 7 

NOV •IPNRDN,0tPntfBC IIPONER PAIIURC VECTOR 

NOV 834S,|»PHRVEC'»3 IILEVEL 7 

CLR STINtS IIIHIIIALIZB NUMBER OP ITERATIONS 

CLR 8Eiem 11 CLEAR THE ESCAPE ON ERROR ADDRESS 

MOVB llfSERHAX MALLOM ONE ERROR PER TEST 

MOV «.,*LPADR 1 1 INITIALIZE THE LOOP ADORElS FOR SCOPE 

NOV ».,8LPERR M SETUP THE ERROR LOOP ADDIESS 

MSIIE rOR A RARDHARE SNITCH REGISTER. IP NOT POUND OR IT tt 
1 1 EQUAL TO A ■>!", SETUP FOR A SOPTHARE SHITCH RE6ISTER. 

•tBRRVEC>>(SP) IISAVE ERROR VECTOR 

I (SET UP ERROR VECTOR 

tiSETUP FOR A HARDHARE SHlCH REGISTER 
HAND A HARDHARE DISPLAY REGISTER 
1 1 TRY TO REPERBHCe HARDNARE SHR 
1 1 BRANCH IF NO TIMEOUT TRAP OCCURRED 
HAND THE HARDHARE SHR IS NOT ■ -1 
IIBRANCH If NO TIMEOUT 
6411 HOV l6S8i(SP) tiSET UP FOR TRAP RETURN 



MOV 
MOV 
MOV 
HOV 
CHP 
BNE 



6511 



■SBTTL 
; (TYPE 



HOV 
PTI 
MOV 
MOV 

MOV 



••48,»IERRfEC 

«DSHR,SHR 

*DDISP,DISPLAT 

(•IfSBHR 

668 

658 

l6S«i(SP) 



1 1 POINT TO SOFTHARB SHR 



tSHREGrSHR 
•OISPREG, DISPLAY 
(SP]+,8fERRVEC tiRESTORE ERROR VECTOR 



TYPE PROGRAM NAME 
THE NAME OF THE PROGRAM 
IMC i-1 
BNE 671 
TYPE ,688 
GET VALUE FOR SOFTWARE 



6911 
70tl 



I tb8>t 
6711 



TST 

BNt 

CMP 

BNE 

GTSMR 

BR 

MOVB 



«t42 
698 

SHRttSHREC 
708 

70S 

•1«8AUT0B 



IF FIRST PASS 
MFIRST TIMEt 

;ibRanch if NO 

IITTPE ASCIZ STRING 
snitch REGISTER 
MARE HE RUNNING UNDER XXDP/ACTT 
IIBRANCH IF YES 

IISOFTHARE SWITCH REG SELECTED? 

IIBRANCH IF NO 

IIGET 80PT«SHR SETTINGS 

1 1 SET AUTO>MODE INDICATOR 

IIGCT OVER THE ASCIZ 



.«SCIZ <CWLr>/RKll LOGIC TEST II/<1S><12>/MAIN0EC-1 1-DZRKK-D/<CRLF> 



•ODPCH.B0 



milllDBC-ll-DZRKK-D H»C?li 27(18865 84-0CT-76 16186 PAGE 21 

DZRKKD.Pll a2-SEP'T6 B6l4T GET VALUE FOR SOrTHkRE SWITCH RESISTCR 



•ifl fell 



1019 
1020 
1031 
1022 
1023 
1024 
102S 
1026 
1027 
1028 
1029 
1030 
10}1 
1032 
1033 
1034 
101$ 
1036 
1037 
103t 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1090 
10S1 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 



003202 
003206 
003210 
003212 
003214 
003220 
003222 
003226 
003234 

003240 
003242 

003250 
003294 
0032S6 



003262 
003266 
003272 
003274 
003276 
003300 
003306 
•03310 

003316 
003324 
003326 

003312 
003336 
003340 
003344 
003)46 
0033S2 
0033S2 
003356 

003406 
003406 
00)410 
00)414 
00)416 
00)417 
003420 
003424 
003430 
0034)2 
00)4)6 

00)462 
00)462 
00)464 



012701 177765 
005020 
005201 
001375 

005227 177777 
001020 

013746 000004 

012737 003242 0«C9a4 

005737 177776 

000406 

0127)7 •0«14i •ei400 

012716 003286 
000001 

0136)7 O0OM4 



HOV 
CLR 
IMC 
BNE 
IHC 
BNE 
HOV 
MOT 
1ST 

BR 

MOV 

HOV 
RTI 
NOV 



t-l).Rl 

(B0)* 
Rl 
IS 
• -1 

STARTl 

ERRTCCcCSP) 

j)2(>nKVEC 

PS 

)t 

I140f RKPRI 
t)l,(«P) 

(8P)'«-fERRVBC' 



I FIRST START 7 
}BR ir NOT 

tSAVE CRROR VECTOR ADDRESS 

;HEH VECTOR ADDRESS 

I SEE ir PROGRAM CAN REFERENCC TRI 

(PROCESSOR STATUS HORO 

;BR ir REFERENCE OlDN'T CAUSE TRAP 

iSBTQP INTERRUPTINa PRIORITY TO TAtUE 

iHHieil HILL ALLOH tNTERRUPT ON A> LOI-11 

f SETUP RETURN ADDRESS 

(RETURN 

(RESTORE THE ERROR VECTOR 



013700 
012701 
009020 
009201 
001)79 
1237)7 
001166 
01)7)7 

1227)7 
101003 
1050)7 

0097)7 
0014)2 
0097)7 
001002 
0001)7 

104401 
00041) 



005046 
11)716 
10440) 
001 
000 
•00137 
005227 
001115 
104401 
000411 



005046 

113716 



•01410 

177766 



000002 O0O«41 
OeO0«O 001410 

eoeoso 001410 

■01410 

•••042 
••1410 

••4ai^ 

••))6« 



(FIND 
t 

8TART1 



OUT IF ACTll. 'XXOP* CHAIN OR DUMP MODE 



311 



II6SI1 
64»( 



•04310 

177777 



••)44a 



•01410 



(I67II 
668 1 



I MOV 
MOV 
CLR 
INC; 
BNE 
CMPB 
BNE 
HOV 

CMPB 

BHI 

CLRB 

TST 
BEO 
TST 
BNl; 
JMP 

TYPE 
BR 

.ASCIZ 

CLR 

HOVB 

TYPOS 

.BYTE 

.BYTE 

JMP 

INC 

BNE 

TYPE 

BR 

. ASCII 

CLR 
HOVB 



«DOPCHi|i0 

««12«Rt 

(RO)* 

Rl 

1« 

• 2*41 
ST2 

40,O»PeH 

tia.DorcH 
at 

ODPCH 

42 
4* - 

DDPCH 

)t 

ST) 



(CLEAR OUT DRIVE IftBLE AREA 



(LOADED FROH AH RK^S T 
(BR IF NOT 

(GET DEVICE INDICATOR AND DRIVE ADDRESS OF 
(LOAfilHG RK05 

(VALtO< DRIVE NUHBER IN BYTE 40 T 
(BR IF tt» 

tMUSt EE DRIVE ZERO HHICH LOIU>ED 
(THIS MOSRAH 

(CHAIN HODE OR ACTll AUTO ACCEPT 1 
(BR tr NEITHER 
(RDHNkHG FROM AH RK08 7 
(BR It YES 

irttio duT HUMBEft or drives 



,698 ((TYPE ASCtS ttRINC 

648 ((GET OVER THE ASCIZ 

<15><12»/N0T TEStING DRIVE / 

•(8P) (CLEAR HORO ON STACK 

OOPCH.CSP) (GET DRIVE ADDRESS 

Jttn THE ADDRESS 
1 (ONLY 1 CHARACTER 

• (SUPRESS LEADING ZEROS 

ST) ICET NUMBER OF QRITES 

f«l (FIRST TIME THROUGH HERE ) 

STt (BR IF MOT 

,678 ((TYPE ASCIZ STRING 

668 tlGET OVER THE ASCttZ 

<1S»«12>/T0 TEST DRIVE / 



•UP J 

DDPtH. (SP3 



(CLEAR HORD ON THE StACK 
(GET DRIVE ADDRESS 
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1075 


003470 


10440) 






IYPO» 




(TYPE THE DRIVE ADDRESS. 


1B76 


003472 


001 






.BYTE 


1 


(ONLY 1 CHARACTER 


1077 


003473 


000 






.BYTE 





(SUPRESS LEADING ZEROS 


1078 


003474 


104401 


•0)902 




TYPE 


f69( 


((TYPE ASCIZ STRING 


1079 


003500 


000431 






BR 


688 


((GET OVER THE ASCtZ 


1080 








116981 


.ASCII 


/ HALT PROGRAM, REMOVE RKOP PACK AND REPLACE IT/<15><12> 


lani 


003564 






6811 








ten} 


003564 


104401 


00)973 




TYPE 


,718 


((TYPE ASCIZ STRING 


1083 


003S70 


0004)9 






BR 


708 


((GET OVER THE ASCIZ 


1084 








n7i8i 


.Ateis 


/NITH A WORK 


PACK, CLEAR LOCATION 40, AND RESTART PROORAH/ 


1085 


003664 






7081 








1086 
















10S7 








(FIMO 


OUT FROM 1 


USER HHICH DRIVES (LOGICAL ADDRESSES) ARE TO BE 


1068 








(TESTED (DRIVKS 


TO BE TESTED 


7). IN REPLY THE USER SHOULD TYPE IN THE 


1099 








(LOGICAL ADDRESSES SEPBRATED 


BY COMMAS. THUS IF 2 DRIVES 0,1 ARE PRESENTS 


1090 








( 


'0RIV8 TO 


B TSTD7' 




1091 








( 


••,1<CR>' 


A CAR. 


RET, SHOOtD BE TYPED TO TERMINATE THE LIST. 


1492 


003664 


012700 


001413 


ST2I 


HOV 


tDRiyS,R0 




1093 


003670 


012701 


177767 




HOV 


•-11»R1 




1094 


003674 


005020 




1)81 


CLR 


{R0) + 




ti»9S 


00367b 


005201 






INC 


Rl 




1096 


00)700 


001375 






BNE 


138 




1097 


003702 


104401 


00)710 




TYPE 


,658 


((TYPE ASCIZ STRING 


1098 


003706 


000415 






BR 


648 


(IGET OVER THE ASCIZ 


1099 








1(6581 


.ASCIZ 


<15><12>/DRIVES TO BE TESTED T/<l9><12> 


1100 


00)742 






6411 








1101 


003742 


104411 






RDLIH 






U02 


003744 


012600 






MOV 


(SP)+,R0 


(GET STARTING ADRE8 OF ASCII STRING 


1103 


003746 


012701 


177770 




HOV 


(•10, Rl 


(SET OP COUNT 


1104 


003752 


112002 




1*( 


MOVE 


(R0)+,R2 


(GET ASCII CHARACTER 


1105 


003754 


042703 


177400 




BIC 


*17740O,R2 


(MASK OMHANTED BITS 


1106 


003760 


012703 


001414 




HOV 


•0RIV0,R3 




1 107 


003764 


012704 


177770 




HOV 


•-10, R4 




1 198 


003770 


012705 


000060 




HOV 


•60, RS 




1109 


003774 


020502 




281 


CMP 


R5,R2 


(WAS THE TYPED IN CHARACTER 


1 110 














;A NUHBER BETWEEN 0-77 


nil 


00)776 


001414 






BEO 


38 


(YES, BRANCH 


1112 


004000 


005209 






INC 


RS 


(NO, IHCREHENT 


1113 


004002 


00572) 






TST 


(R3}<t' 


(INCREMENT POINTER TO DRV FLAG 


1114 


004004 


00S204 






INC 


R4 


(CHARACTER THAT WAS INPUT 


1115 


004006 


001372 






BNE 


28 


(SHOULD BE IF ANY OTHER 


1116 














(TYPE 77 6 AGAIN ASK FOR 


1117 




005702 










(DRIVS TO BE TSTD? 


1118 


004010 






TST 


P2 


(IS IT A TERMINATQRT 


1119 


004012 


001461 






BEO 


68 


(YES, EXIT. NO DRIVES INDICATED. 


1120 


004014 






481 






1121 


004014 


104401 


004022 




TYPE 


.674 


( (TYPE ASCIZ STRING 


1122 


004020 


000402 






BR 


668 


((GET OVER THE ASCIZ 


1123 








((6781 


.ASCIZ 


/»?/ 


1124 


004026 






6681 








1125 


004026 


000716 






BR 


ST2 


(GO, AGAIN ASK QUESTION 


1126 


0040)0 


005713 




381 


1ST 


8R3 (SEE 


IF ALL READY SELECTED 


1127 


004032 


001370 






BNE 


4f (ERROR IF SELECTED ALL READY 


1128 


004034 


005313 






IMC 


•R3 


(SET UP FLAG FOR THE DRIVE 


1 129 


004036 


005237 


001412 




INC 


OBIVS 


(INCREMENT TOTAL NO OF DRIVES PRESENT 


1130 


004042 


111002 




1181 


HOVB 




(GET NEXT CHAR 



MHWDeC-il-OZWtK-l) N»CTH a7(lB«) 04-OCr-7e 16t»6 PACG 23 

DtRKKD.Pll a3>SEP*7» nt*l GET TALOK FOU SOFmRE SWITCH PEOXSTER 

ICHARACTCR ONLY 

jis ir r? 

I NO, GO OM 

jiET BIT 15 TO »HOW HK«5r 
lEVEN DRIVET 
lEVEM DRIVE SO BRANCH 
I CHECK EVEN DRIVE 
lEVEM khh RCADT SELECTED 
-2(HJ) iSEIiECT EVEN DRIVE 

tCOMTINUE 
} CHECK ODD DRIVE 
(ERROR ir SELECTED BErORE 
,3(R3) I SELECT ODD DRIVE 

tCOWT DRIVES SELECTED 
t POINT TO MCXT CHAR 
»C»ECK FOR COMMA 
»I5 IT A 'COHHA'T 
I YESt GO PROCESS NXT WORD 
iMOf IS IT A TCItHIKATORT 
lir NOT* SOHETHIHC HRONC 
|C0 ASK QUESTION ACAIH 
IBXIT. IF A TERMIHAIOR 
tlt^FEMEHT PTR TO NXT BYTE 
t IN INPUT BUFFER 
rTHGRE SMOOLO BE NO MORE THAN 
f» DRIVES* HENCE IF MORE 
ITHAN • DIFFERENT NOS. TYPED IN, ERKORI 
iGO AGAIN ASK THE QUESTION 



SEO 99*e 



lilt 


004044 


043703 


177400 






BTC 


1133 


1104030 


033703 


000106 






CMP 


1 1 33 




001036 








BNE 


1134 


004056 


053711 


100000 






BIS 


113S 


004062 


0327S5 


000001 






BIT 


1 1 36 


004066 


001407 








BEQ 


1137 




005763 


177776 








1 1 18 


004074 












1139 


004076 


0137S3 


1 0000 1 


177776 






114iJ 


004104 










BR 


1141 


004106 


905763 








TST 


1142 


004113 


001 340 








BNE 


1141 




013763 


t afloat 


000003 




NOV 


1144 


004132 




001413 




108 1 


INC 


1145 


nail 


105720 








bp" 


1146 


aali 13 












1 147 




033703 


000054 




08 1 


rMP 


1148 


nail 1ft 










MO 


1149 




005703 








TST 


1150 




001 334 








BNIT 


J J'l 














1 152 


.... 


000404 








BR 


1 153 


nail Ifc 
004146 


105730 








TSTB 


1154 














1 155 




- 








INC 


1 1 56 


004153 


001377 










€ 1 


004154 


0007 1 7 








BR 


1158 














f Ikfl 
















004156 


005037 


001440 




681 


CCiR 


1 161 


004163 


033777 


003000 


174750 




BIT 


1 162 


004170 


001003 








ONE 


J 


004 173 


005037 


001 344 






CLR 


1164 


004176 


000?v« 








BR 


1165 














1 166 


004^00 




000001 


am \tt 
001144 


_ 

7f 1 




1167 


004206 


0004 7d 








■ D 


1168 














1 169 














1 1 70 














1171 










1 CHECK 


NUMBER 


1 172 


004310 


013717 


177777 


001440 


STll 






004216 


013737 




000004 




NOV 


1174 




005777 


1 75076 






TST 


1175 


004330 


005777 


1 75104 






TST 






01 2737 


004463 


900004 




NOV 


1 177 


004343 


1044f*l 








TYPE 


1179 












NSGl 


1179 


004346 


0t 2700 


1 77770 






NOV 


1180 


004352 


005037 


001413 






CLR 


1101 


004256 


005001 








CLR 


1183 


004260 


005004 








CLR 


1183 


004363 


012703 


001414 






NOV 


1184 


004366 


010177 


175046 




181 


NOV 


1185 


004273 


030177 


175043 






CHP 


1186 


004376 


001405 








aco 



1177400. R3 

l'F,R3 

88 

lBIIlS,fR3 

•BIT0«R5 

98 

-a{R3) 

48 

(BIT15IBIT0,- 

to* 

2(R3) 
48 

8BITlSiBIT0,3 
ORIVS 
tRO)* 
It* 

•S4rR3 
S* 
R3 
4* 

(8 

(B0)> 

Rt 
18 
4* 



SIZVBT 

tSHie,*SHR 

78 

SINUL 
ST4 

llfSINUb 
■T4 



OF DRIVES 
IM.SIBYET 
158,0*4 
•RKD8 
ORKDA 

IBADTNOrOI* 



••lOfRO 

DRIVS 

Rt 

R4 

IORIV0,R3 
R1,»RK0A 
Rl (ORKDA 
3* 



;lfO SIEINC NEEDED 
(TESTING ON SINULAT0R7 
I YES. BRANCH 
I NO, CLR FLAG 



(SET FLAG TO INDICATE SIHUliATOR 



(CHECK FOR RK09F LATER 

tSCT UP ADRE8 FOR TIME-OUT VECTOR 

I REFERENCE RKDS 

(REFERENCE RKOA 



(INITIALISE COUNT FOR THE 8 DRIVES 
(INITIALIZE t OF DRIVES PRESENT TO 
(INITIALISE ADDRESS TO DRIVE 



(ADDRESS THE DRIVE 
(CHECK, HAS IT AD0RE8SEDT 
(YES 
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SEQ 0041 



1 167 
1188 
4 1119 
1198 
1191 
1192 
t 19) 
1194 
I 195 
1 196 
1197 
1198 
t 199 
l?lt^ 
1201 
1202 
1303 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
12t 1 
121 1 
1215 
1216 
1217 
12t8 
1219 
122t9 
1221 
1233 
1223 
1274 
1275 
1 226 
1227 
1228 
1229 
1230 
1231 
1232 
1211 
1234 
1235 
1216 
1237 
1218 
1219 
1240 
1241 
1243 



004300 
004304 



004310 
004312 

00432M 

004322 
004324 
004326 
004332 
004334 
004336 
004340 
004342 
01)4346 
004350 
004353 
004354 
004360 
004363 
004364 
004366 

004370 
004172 
004374 
004400 



012703 004304 
004717 030734 



000411 

033777 000300 175006 381 

001407 
11<4401 
0Mt213 

005237 001412 
005313 
010446 
104403 

005733 4*1 

062701 030000 

005204 

005200 

001345 

005737 001413 

001011 

104401 

001236 

000406 



011603 
022626 
062703 
004737 



177776 
020734 



MOV 
J8R 



428, R] 
PCTYERM 



(WHILE CHECKING NUMBER OF DRIVE 

JUWER B09-HAMUAL MODE 1- 

(RKOA HAD TO BE ADRE8ED BUT 

(IT HAS FOUND THAT THE DRIVE HO 

(THAT HAS WRITTEN COULD HOT BE READ BACK 

(CORRECTLY. 



BR 


4* 




BIT 


•30*,ORROS 


(CHECK IF 'DRY' BIT IS SET. IF SET DRIVE IS 
(PRESENT 


BEQ 


4* 


1 


TYPE 






*CRLF 






INC 


DRIVS 


(IF PRESENT, INCREMENT t OF DRIVES 


It»C 


(R3} 


(SET UP FLAG INDICATING THIS DRIVE PRESENT 


NOV 


R4,-(8P) 




TYPOC 






TST 


(R3)* 


(SHIFT POINTER TO NXT DRIVE INDICATOR 


ADD 


120000, Rl 


(SET UP ADDRESS FOR THE NEXT DRIVE 


IMC 


R4 


(HAVE U CHECKED FOR ALL t DRIVES 


INC 


R0 




BNE 


1* 




TST 


DRIVS 




BNE 


ST4 




TYPE 






MSG3 






BR 


ST* 


(00 CHECK THE DRIVE INDEPENDENT 
(CONTROLLER LOGIC 


MOV 


(*P),R3 


(GET PC WHERE TIMEOUT OCCORED 


CMP 


(SP)+,(8P)* 


(RESTORE STACK 


ADO 


••2,R3 




JSR 


PCTYERM 


(GO TYPE ERROR MESSAGE 



(WHILE CHECKING FOR THE NUMBER OF 
(DRIVES IN NON-MANUAL HODEf 

(RKDS AND RKDA HAD TO BE REFERENCED. TIMEOUT 
(OCCUREO ON REFERGHCIHG.PC IN THE ERROR 
(MESSAGE INDICATES WHERE THE TIMEOUT OCCURED, 



004404 
004410 
004414 
004416 
004422 
004426 
004434 


005037 
005737 
001004 
004737 
000137 
012737 
005037 


001434 
001412 

021650 
020560 
001414 
0013S3 


001354 


ST4I 
lt( 


CLR 
TST 
BNE 
JSP 
JNP 
MOV 
CLP 


T56FLC 

DRIVS 

1« 

PC.NATIME 
IROP 

•ORIVO.OPVPTR 
DRVDON 


150444H 


005037 


001 150 






CLP 


DRIVAn 


004444 


012737 


004463 


000004 




MOV 


•RADTM0.8I4 


004452 


812777 


004536 


174733 




MOV 


IBADINT.NRKVEC 



(INITIALIZE THE NO. OF DRIVES 
(THAT have; been CHECKED 
(INITIALIZE DRIVE ADDRESS TO 
(THE FIRST DRIVE 

(SET TIME OUT VECTOR FOR UNEXPECTED 
(TIME OUTS 

(SET UP RKll INTERRUPT VECTOR FOP 
(UNEXPECTED INTERRUPTS FROM RKll 
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SCO 0042 



1243 


004460 


000465 


1244 






1245 






1246 






1347 






124B 






1249 






1259 


004462 


011600 


1251 


004464 


005740 


1252 


004466 


023636 


1253 


004470 


104401 


1254 


004474 


000407 


1255 






1256 


004514 




1257 


004514 


010046 


125* 


004S16 


104403 


1259 


004520 


000000 


1260 


004522 


000117 


1261 






1262 






1263 






1264 






1265 






1266 






1267 






1266 






1269 


004526 


011600 


1270 


004530 


005740 


1271 


004532 


033777 


1272 


004540 


001014 


1273 


004542 


104401 


1274 


004544 


001213 


1275 


004546 


104401 


1276 


004550 


02S702 


1277 






1278 


004552 


104401 


1279 


004556 


000403 


1280 






1291 


004566 




1282 


004566 


010046 


1283 


004570 


104403 


1284 






1285 


004572 


032777 


1286 


004600 


001403 


1287 


004602 


022626 


1288 


004604 


000177 


1299 






1290 




0J2777 


1291 


004616 


001401 


1242 


004620 


000003 


1293 


004622 


000000 


1294 






1295 






1296 






1297 


004624 


000137 


1298 







;G0 TO TEST 1 



ITHIS ROOTIHE HAHDLES OMEXPECTED TIME OUTS 

BADTHOt MOV (SP).R0 ISAVE PC HHEPE TIME DOT OCCURED 

TST -(R0) 

CMP (5P)*r(8P)+ IBESTORE STACK POINTER 

TYPE .658 1 1 TYPE ASCIZ STRING 

BR 64* nCET OVER THE ASCIZ 

.ASCII <15><13>/TIM0UT»PC"/ 



1165*1 
64*1 



MOV 
lYPOC 
HALT 
JMP 



•* START 



;8ET UP FOB TYPING OUT PC 
>G0 TYPE OUT OCTAL PC 



JTHIS ROOTIHE HANDLES OMEXPECTED IMTEBRUPT8 FROM RKtl 
;SW 9 AKO IS FOR LOOPISG OM ERROR 
;AND LOOPING ON TEST IH WHICH TIHEODT 
lOCCURREDt ARE PROVIDED. 



020000 174400 



BADINTI HOY 
TST 
BIT 
BNE 
TYPE 
ICRLP 
TYPE 
CM43 



M65(t 
64*1 



001000 174340 Itl 



040000 174322 



3*1 
3«< 



TYPE 
BR 

.ASCII 

MOV 
TYPOC 

BIT 
BEO 
CMP 
JMP 

BIT 
BBQ 
RTI 
HALT 



(8P)tR0 
-(RBJ 

130000. MHR 
It 



.65$ 
64* 

/,PC«/ 
RO.'CSP) 



I1000.0SWB 
2* 

(8P)«f (8P)4 
0ILPADR 

f40000>0SHR 
3* 



I SAVE PC WHERE INIERROPT OCCURED 



lINHtBIT EHBOR TYPE00T7 
|YES» DON'T TYPE OUT 



I TYPE 'UMEXPEXTEO RKU IHTERROPT* 
J TYPE * AT PC*' 
UTTPe ASCII STRING 
IICET OVER THE ASCIZ 



ISCT OP FOR TYPING OUT PC 
lOO TYPE OCTAL PC NHEBE BAD 
)INTERUPT OCCURED 
tlOOP ON EPRORT 
|N0. BRANCH 

|TES« REPOSITION STACK 

}60 TO THE STARTING ADDRESS OF 

ITHE TEST THAT GAVE UNEXPECTED INTERRUPT 

;LOOP ON TEST? 

fNO, BRANCH 

I YES. LOOP. GO BACK HHER U INTERRUPTED FROM. 
) UNEXPECTED INTERRUPT OCCURED AS 
IINDICATBD IN THE TYPE OUT.U CAN LOOP 
}0N ERROR. TEST.OR INHIBIT TYPEOUT BY 
fSETTING APPROPRIATE SWITCHES. 
tCO BACK TO THE StART OF THE 
IPROCRAM, THUS PRESSING CONTINUE 
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sea 0043 



1299 






1 J00 






1 391 






1 31*2 






1303 






1304 






HdS 






1336 






1307 


004630 


004737 


1308 






1309 






1310 






1311 






1312 






1 913 






1 314 






1315 






1316 






ni7 






ma 






1 J19 






1 }30 






1321 






1 J22 






1373 






1 324 






1 J2S 


004634 


000004 


1326 






1327 


004636 


012700 


1328 


004642 


005001 


nj9 


004644 


005002 


t3J0 


004646 


0057 37 


1 ni 


004653 


001403 


1332 


004654 


130237 


1333 


004660 


001 4 3S 


1 ))4 


004662 


010177 


H35 


004666 


105777 


1336 


004672 


100005 


1337 






1338 


004674 


0057 10 


1339 






1340 


004676 


001026 


1 141 






1342 






1343 






1344 


004700 


010237 


1345 


004704 


104116 


1346 






1347 






1 348 






1 349 






13)0 






1351 






13)2 


004706 


005710 


13S3 


00471P 


001421 


1 3S4 







>AFTBR THE ABOVE HALT MILL 
I RESTART THE PROGRAM 



I RESTART AFTER POWER FAIL 

ITHE PROGRAM WOULD RESTART HEBE IF POWER CAME BACK AFTER A FALIURE. 



PP8TBTI J8R 



IKILl TIME 



n ••••*»•«•••••«••»••••«••••••••••••••••«*••••••»••««•••••••••••• 

»»TEST 1 CHECK THAT THE DRIVES THAT ARE MOT SPECIFIED ABE NOT FOUND TO BE PRESENT 

>*THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED 
(•(IN BESPONBE TO "DBIVB TO BE TSTDT") ARE NOT FOUND TO BE PRESENT. 
{•EVERY DRIVE FROM TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE 
(•GIVES 'DRY' (IH RKD8)r II IS CHECKED THAI THIB DRIVE 
l•WAS^SPECIrIeO BY THE USER. IF IT HAS NOT AN ERROR IS 
(•REPORTED. eiVING THE DRIVE NUMBER. IT IB LIKELY THAT THE USER 
(•MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAI IS HOT BPECIFIED) ON 
I ••LOAD'. IF THIS 18 THE CASE THEM POT THIS DRIVE ON 'LOAD', 
(•IP THIS IS NOT THE CASE. THERE IS A GENUINE ERROR, (TWO DIFFEREHT 
(•DRIVE ADDRESSES NAT BE RESULTING IN THE SELECTION OF THE SAME 
(•PHYSICAL DRIVE.) 

TSTl I SCOPE 



MOV 

CLR 

CLR 

TST 

BEO 

CMPB 

BEO 

MOV 

I8TB 

BPL 

TST 

BNE 



MOV 
ERROR 



TST 
BEO 



IDRXV0.R0 

Bl 

R3 

DOPCH 
3* 

B3, DOPCH 
4* 

Rl.BRKDA 

»RKOS 

3* 

•R0 

4* 



R2,*REG0 
116 



aR0 

4( 



(INITIALIZE POIMTCR 
(INITIALIZE DRIVE ADBES 
(INITIALIZE DRIVE I 
(LOADED FROM AH RKBS 7 
(B IF HOT 

(LOADED FROM THIS DRIVE T 
(BR IP YES 
(ADRES THE DRIVE 
(DRIVE READY? 

(HO. THIS DRIVE NOT PRESENT 
(YES. THIS DRIVE SELECTED 
(HAS THIS DRIVE SPECIFIED BY 
(THE OSERT 
(YES. OK 

|H0. THIS DRIVE t WAS NOT SPECIFIED 
(BY THE USER, BUT STILL IS GIVING 
('DRY' WHEN ADRESED. REPORT EROB. 
(GET DRIVE f 

(THIS DRIVE « HAS NOT SPECIFIED BY 
(THE USER, RUT WHEN ADRESED GAVE 
('DRY', CHECK THAT THIS DRIVE • IF 
(PHYSICALLY PRESENT IS OH 'LOAD'. IF 
(THIS IS NOT THE CASE. THEN ONE DRIVE 
(MAY BE GETTING SELECTFD BY TWO DIFFERENT 
(LOGICAL ADDHG88E8. 

(CHECK TKAT THIS DRIVE 4AS NOT INDICATED 
(IF IT MAS. (. IT IS NOT FOUND TO BE 
(PRESENT (DRY CLEAR), REPORT ERROR. 



H»IHOEC-il-DEBKK-0 HACtH 3T(l*e6) •4-0CT-T6 16|B6 PACE 27 _ _^ „ » ar* ma 

* 2a-SCP-76 88 1 47 Ti CHECK TH»T fHE OBITM THUT »I»E MOT SPCCirWO «RE HOT FOWO tO BC mSWr tEQ M44 



OZRRKD.Pll 



13SS 
13S6 
13S7 

use 

1359 
1361 



1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
138S 
1386 
1387 
1388 
1389 
1390 
1391 
1393 
1393 
I 394 
1 J95 
1396 
1397 
1398 
1399 
1400 
1401 
1403 
1403 
1404 
140» 
1406 
1407 
1408 
1409 
1410 



104712 
004716 



004737 030703 
104010 



JSP 
ERROR 



PC>eT4R6 
10 



1362 


•04730 


005010 




CLR 


• RO 


1363 












1364 


004733 


010003 




HOV 


R0«R3 


1369 


004734 


163703 


001414 


SOB 


iORIVB>R3 


1366 


004730 


04370J 


000003 


BIC 


• ]»R3 


1367 


004734 


063701 


001414 


kOD 


*DRIV0>R3 


136* 


004740 


043733 


100000 


BIC 


4100000* (R3)« 


1369 


004744 


043713 


100000 


BIC 


4100000, (Rl) 


1370 


004790 


005337 


001413 


DEC 


DRIVS 


1371 


004794 


005302 




481 IHC 


R3 


1373 


004756 


005730 




TST 


{R0)* 


1373 


004760 


063701 


030000 


ADD 


120000, Rt 


1374 


004764 


001330 




BME 


t« 



004766 
004770 



000004 
012737 



000001 001306 



leCT RKCS, ER# 08, Ok 

tORIVE I (KB IH RKDK} W»S IRDtCATEO BT 
ITHE USER, BUT HAS NOT rOaMD TO BE PRESEHt. 
ICHECK THAT THE ROTARY DRIVE SELCCtlOB 
fSVITCH ON THE MODULE IB BET tO THE RISHT 
lORIVE f. 

ITHIS DRIVE IS NOT rOVND TO BE PRESBBT 
IHEMCI DROP IT fROH tUE BELBCTIO* TABbE. 
I DRIVE ADDR 

IHI0U8 0FP8ET rOR TABLE 

lEVEN DRIVE OF PAIR 

> POINT TO EVEN OF PAIR If RX05 F 

tNOT BPECIFieO AS F NODKIi 

I SANE 

IDBCKEMERT DRIVE COtfflT 

IIHCRHHT DRIVE « 

IIHCRMHT POINTED 

IINCRHRT ADRE8 TO HXT DRIVE 

thV9 BAK IF NOT DOBE 



I THIS PART OF THE PRbMAN IS eOIH6 TO BK RtmTED FOR 
I EACH DRIVE PRESntT 

S'DRIVAO' CONTAINS IH BITS 15,14,13 THE ADDRESS OF THE 
I DRIVE BEINC CORRENTLV CHECKEDt 



t I »#•»•.••••#•#»••♦*#»••*#•••»••*••••••••••»•••••••••*•»#•♦•♦»••• 

(•TEST 3 FIND OUT MEET ORIVE TO BE CHECKED 

I THIS CODE FINDS OUT THE NEXT DRIVE THAT IS PRESENT AND THEN SETS UP 

rTHE ADDDRESS IN ORIVAO (BITS 13,14,15). THUS THRODCIOUf THE FOLLOWING TESTS 

ITHB DRIVE rCBnO IS TIE DRIVE HHOOSE ADDRESS IS IM ^DRtVAO*. 

t !••••••«•••••«••••••••••••«••••••••••••«••*•••••••••••»••••••••• 

T8T3I SCOPE 

If DO 1 ITERATION 



HOV 



«1»ITIME8 



004776 


012737 


000003 


001102 




HOV 


ia,BTSTNH 


1 RESET POINTER TO THIS TEST 
INO. CHANGE THIS (3} IN CMC THE 
ITEST HO. CHANGES 


005004 


009037 


001113 






CLR 


80TIL 


(CLEAR TOTAL ERROR CdUNT 


009010 


009737 


001413 






I8T 


DRIVS 


|R THERE «HT DRIVES PRCSENTt 


009014 


001002 








BNE 


,*t 


ITES, BRANCH 


009016 


000137 


030960 




411 


JMP 


8E0P 


INO, JMP TO THE CBD 


005022 


013701 


001354 






NOV 


DRVPTRrRl 


IGET THAT POINTER TO THE NEXT 
1 DRIVE FLAa 


009026 


032721 


000001 




381 


BIT 


«Bir0,(Rl)« 


lis THIS DRIVE PRESIBTT 


005033 


001009 








BNE 


It 


IVES 


009034 


062737 


030000 


001350 


611 


ADD 


•30000, ORIVAD 


IFORM HXT DRIVE AORCI 


005042 


001371 








BNE 


3* 




005044 


000764 








BR 


48 




005046 


009737 


001410 




111 


1ST 


DOPCH 


1 PROGRAM LOADED FROH AN RK0S T 


005052 


001411 








BEO 


>« 


INO, BRANCH 


009094 


013746 


001 3S0 






HOV 


DRIVAD,«(SP} 


IPUT TEST DKtVB ADDRESS ON THE STACK 
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1411 


009060 


000316 




1412 


005062 


006216 




1413 


005064 


006216 




1414 


005066 


006216 




1415 


009070 


006216 




1416 


005072 


006216 




1417 


005074 


122637 


001410 


1418 


005100 


001755 




1419 


005102 


010137 


001354 


1430 








1 431 


009106 


104401 


001373 


H22 


009112 


013746 


001)50 


1433 


005116 


004737 


031106 


1424 


009122 


005037 


001404 


1429 


005126 


011600 




1426 


009130 


104401 




1427 








1428 


005132 


001 


000 


1429 


009134 


006300 




1410 


009136 


005760 


001414 


1431 


009142 


100006 




1432 


009144 


104401 


005193 


1433 


005150 


000401 




1434 








1439 


005154 






1436 


009154 


005237 


001404 


1437 


005160 


104401 




1438 


005162 


001213 




1439 








1440 








1441 








1442 


005164 


000004 




1443 


005166 


104413 




1444 








1445 








1446 








1447 








1448 








1 149 








1450 








1451 








1493 








1493 


005170 


013700 


001336 


1494 


009174 


013777 


001350 


1455 


009202 


009710 




1496 


009204 


001003 




1457 


009206 


011037 


001162 


1458 


009212 


104004 




1459 








1468 


00S214 


012777 


000015 


1 461 








1462 


009322 


009001 




1463 


005224 


032710 


010000 


1464 


0092^0 


001003 




1465 


005232 


005301 




1 466 


005234 


001)73 





iiesti 

6481 



174U0 111 
211 



SHAB 

ASR 

&SR 

ASR 

ASR 

ASR 

CMPB 

BEQ 

HOV 

TYPE 

HOV 

JSR 

CLR 

HOV 

TYPOS 

.BYTE 

ASL 

TST 

BPL 

TYPE 

BR 

.ASCII 

mc 

TYPE 
ICRLF 



(BP) 
(SP) 
(SP) 
(SP) 
tSP) 
(8P) 

(8P)+, DOPCH 
61 

RliDhVPIR 
,NSa4 

DRIVAD,>(n*> 
PCSHFTRT 
FFLAC 
(R6),R0 



1»0 
R0 

DRIVBCRB) 
91 

,651 
641 



I SETUP TO RIGHT JUStlFX THE ADDRESS 

I RIGHT JUSTIFY THE A00RK8S 

I RIGHT JUSTIFt THE ADDREM 

I RIGHT JUSTIFY THE AODRBSS 

I RIGHT JUSTIFY THE ADDMSS 

I RIGHT JUSTIFY TH| ADDRESS 

I PROGRAM LOMBD FROM THIS. DRIVE T 

IBR IF YES, DOR'T TEST THE DRIVE 

I STORE POINTER TO THE NEXT 

I DRIVE FLAG 

tOET TBE DRIVE ADDRESS 
I GO SHIFT IT TO THE RIGHT 

I DRIVE NUMBER 

I GO TYPE THE OCTAL f FOR THE 
IDRIVE THAT IS BEING CHECKED 

IIHDEX TO TABLE 
ISEE IF F 

INO 

IITIPE ASCII STRING 

I I GET OVER THE AlCIt 



FFLAG 



I 'TEST 3 



I SET F FLAG 
I TYPE CR, LF 

CHECK THAT DRIVE II SUPPLIED HXTH POHBR*DPL BIT 



SCOPE 
CMT. RESET 



I GO, DO CONTROL RESET 
ITHIS IS A CALL FOR THE 'CHTRL* 
IRESET' ROUTINE. A CONTROL RESET IS 
I ISSUED AMD AFTER A CERTAIN TIHE 
I IF THE 'CNTRL ROY' DOES NOT SET 
IAN ERROR IS REPORTED. NOTE THAT 
ITHE PC IN ERROR HESSAOB If THE 
IPC WHERE 'CRT. RESET' IS LOCATED. 
ITHIS IS A VERY BASIC ERRt IF IT 
lOCCURS GO BACK TO TEST 10 



MOV 


RKDS,R0 




MOV 


DRtVAD,8RKDA 


1 ADDRESS THE ORIVE UNDER TEST 


TST 


«R0 


ICHECR IF ANY BIT OF RKD8 IS SET? 


BNC 


It 


IIF SET, BRANCH 


MOV 


•R0,IREG0 


{GET RKDS 


ERROR 


4 


IRKD8 ERRORI RKDS IF ADDRESSED 
ICORRECTLY SHOULD BE NON«ZBRO 


MOV 


>19,8RKCS 


1 ISSUE A DRV RESET. IF DRVE 
IPOWBR IS LO, DPL WILL SET 


CLR 


Rl 




BIT 


110000, IRO 


IIS 'DPL* BIT SETT 


BNE 


31 


IDPL IS SF.T> BRANCH 


INC 


Rl 


MAIT FOR SOME TIME 10 


BNL 


21 


(SEE IF DPL WOULD SET 
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Ma M4t 



1467 
1468 
1469 
1470 
14T1 
147J 
14T3 
1474 
147S 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1S01 
1502 
1S03 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1SI2 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 



005236 






BR 


41-2 


B0S240 


004737 


V2Vfl0 991 




PC«GT3RG 


005244 


104009 




rRROR 


5 


00S246 


B05001 




Ci>R 


Rl 


005250 


032710 


0BB100 481 


BIT 


fl00>0RO 


8SS2S4 


001010 




BUE 


TST4 


005256 


104417 


00BB11 


DELAT 


>11 


009262 


005201 




INC 


Rl 


005264 


001371 




SHE 


48 


005266 


017737 


174034 001162 


NOT 


0RKO8>8RE60 


005274 


104016 




ERROR 


16 



00S276 
005300 



005 302 
005310 
00S314 
00S320 
005322 
005326 



005330 
005334 
005336 
005344 

005346 
005354 
005356 
005362 



000004 
104413 



tOK, OPh MOT SET 
iGOr GET RKCSf ER, D8 

lOPL BIT or RROS IS SET, CHECK DRIVE POHBR 



;did r/h/8 rot bit set? 
mtes» exit 

>TIHE OELftT 

{WAIT FOR R/H/S RDT 

tdcr REDS 

JR/W/B ROI DID BOT SET AfTER 

;DRITE RESET. DRIVE RESET HAS DONE 

ITO CHECK 'DPL'BIT . THIS TEST 

IIS HOT FOR CBBCKING DRIVE RESET. 

|U HISHT HANT TO USE THE TEST PROVIDED 

irOR CHECKING DRIVE RESET. 



1 > ••«••••••••••«••••••••••••••••••••••*••••••*•••••••«•*•*••••••• 

|»TE8r 4 CHECK THAT 'DRIVE OHSfcTE' IS CLEAR. 'HDEH* IS SEI» 'HPS' IS CLEAR 



TST4I 



SCOPE 
CNT. RESET 



013777 001390 174030 

017700 174012 

032700 002000 
001403 

004737 020710 



032700 004000 111 
001004 

017737 173764 001162 
104007 

032777 000040 173752 281 
001403 

0047 37 020702 



MOV 
MOV 
BIT 
BEO 
J8R 
ERROR 



BIT 
BNE 
NOV 
ERROR 

BIT 
BEO 
J8R 

Error 



DRIVAD.BRROA 
«RKDS<RB 
*2e00>R0 
18 

PC#GT3RG 



t40O0«R0 
28 

•RRD8»8REG0 

7 

I40,»RKD8 
TSI5 

PCf GT4RG 
114 



*«•««•••••••••«•••••••••••«*• 

iGOr DO CONTROL RESET 

I THIS IS A CALL rOR THE 'CNTRL- 

I RESET' ROOTIME. A CONTROL RESET IS 

llSSnSO AND AFTER A CERTAIN TIHE 

tir THE 'CHTRL ROI' DOES HOT SET 

I AN ERROR IS REPORTED. NOTE THAT 

I THE PC IN ERROR MESSAGE If) THE 

IPC WHERE 'CNT. RESET' IS LOCATED. 

I THIS IS A VERT BASIC ERR 4 IF IT 

fOCeVRS 60 BACK TO TEST 10 

I SET DRIVE ADDRESS 

I GET RKD8 
lis 'DRU' BIT or RKDS SETT 
IHO 

JGO, GET RKCS, ER> OS 

I 'DRU' BIT OF RKDS IS SEI# CHECK 

IDRIV BT PUTTING RUN/LOAD SH TO LOAD 

TTHEN BACK TO RUN 

lis 'KDEN' BIT SETT 

im> BRANCH 

I GET RKDS 

lERRORr 'RKOS' BIT IS NOT SET 

IIS 'HP8' CLEAR? 

IIIES, EXIT 

I GET RKC8< ER> 0S» DA 

I'HPS'-WRtTE PROTECT STATUS- BIT OP 

I OF RKDS SHOULD BE CLEAR* ir THIS DRIVE 

lis HRITE ENABLED. CHECK « SEE ir THIS 

IDRIVE IS HRITE ENABLED> ir IT 18 NOT, 

I HRITE ENABLE IT. 
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1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
15}1 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
15*5 
1546 
1547 



1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1968 
1569 
1970 
1971 
1572 
1573 
1574 
1575 
1576 
1577 
1578 



005364 
005366 



000004 
104413 



085370 
005376 
005402 
005404 
005410 



013777 
105777 
100403 
004737 
104010 



001390 
173724 



I {•••••••••••••••••••••••••••••••••«»*»««<*«*«»«*«*»»*«»»««*«*»*« 

I 'TEST 9 CHECK THAT 'DRIVE REAOI' IS SET IN RKDS 

t I •••••*»•••••••«••*•»••«••••»••••••••••••••••••••••••••*••••*«•• 

TSISI SCOPE 

CNT. RESET I GO, DO CONTROL RESET 

I THIS IS A CALL FOR THE 'CHTRL' 
I RESET' ROUTINE. A CONTROL RESET IS 
I ISSUED AND ArTER A CERTAIN TIME 
I IF THE 'CNTRL RDT' DOES NOT SET 
I AM ERROR IS REPORTED. NOTE THAT 
I THE PC IN ERROR MESSAGE IS THE 
IPC HHERE 'CNT. RESET' IS LOCATED, 
I THIS IS A VERT BASIC ERR 6 IF II 
I OCCURS CO BACK TO TEST 10 
DRIYAD,8RKDA lAODRS THE DRIVE 
8RKD8 lis 'DRI* SETT 

TST6 I IVES, OK 

PC,6T4RG IGO, OCT RKC8, ER, OS, DA 

10 I 'DPT' NOT SET 



MOV 
TSTB 
BHI 
JSR 
ERROR 
I 



1 1 •«•••••••••••••*•••*••«•••••*••»•••••••«•••«*••••••••*«•••••«•• 

{•TEST 6 CHECK THAT 'SOK' BIT CAN SET 

I* THIS TEST CHECKS THAT NITHIH A CERTAIN TIME 
t* *SOK' BIT CAN SET, IF IT DOBS HOT AH ERROR IS REPORTED 
1 1 •••«••••«•••*••«•••••••••«•••«••«•«••••••••«*•••«•••••«»••••»*« 



1548 


005412 


000004 






TST6I 


SCOPE 










1549 


005414 


013777 


001390 


173716 




NOV 


DRIVAD,8RKDA 


lADDRS THE DRIVE 






1550 


005422 


005001 








CLR 


Rl 


UNITIALISE COUNT FOR 


TIMING HAIT 


LOOP 


1551 


005424 


032777 


000400 


173674 


181 


BIT 


t400,8RKO8 


lis SOK SET? 






1552 


005432 


001006 








BNE 


TST7 


II EXIT 






1553 


005434 


005201 








IWC 


Rl 


|N0> HAIT 






1594 


005436 


001372 








BNE 


11 


1 WAITED LONGf 






1555 


005440 


017737 


173662 


001162 




MOV 


fRKDS,IREG0 


IGET RK08 






1556 


005446 


104011 








ERROR 


11 


1 WAITED LONG BUT 'SBC 


OK' BIT DID 


NOT 



005450 000004 



I )••••••••••»••«•••••••••••«••••••»«•••••••••»»»«•«••••«••*••««•« 

I 'TEST 7 CHECK THAT 'SECTOR COUNTER' CAN COUNT FROM 0>13 

l» THIS TEST CHECKS THAT THE SECTOR COUNTER CAN COUNT FROM 
I* 0-13 

!• 1) FIRST, FOR INITIALIXING PURPOSES THERE IS A TIMED LOOP 
I* DURING WHICH SECTOR COUNTER SHOULD COUNT DOWN TO 0, IF THIS 
l« IS NOT DONE AN ERROR IS REPORTED 

!• 2) AFTER A COUNT OF IS REACHED, THE PROGRAM WAITS 
!• FOB A CERTAIN TIME, DURING WHICH THE SEC COUNTER 
t* IS SAMPLED. IF THE COUNTER DOES NOT CHANCE WITHIN THIS 
I* TIHE PERIOD AN ERROR IS REPORTED. 

I» 3) UPON FINDING THAT THE COUNTER HAS CHANGED, IT IS CHECKED 

l» IF IT INCREMENTED CORRECTLY. IF IT DID NOT AN ERROR IS REPORTED 

!• 4) IF IT INCREMENTED CORRECTLY, THE PROGRAM AGAIN WAITS IN A 

!• LOOP TILL THE COUNTER CHANGES. {STEPS 2,3,4 ARE RGPBATEO 

f* TILL THE COUNTER COUNTS UP TO 13) 

1 1 ••••«••••••*••«••••»«•••••••••••••«••••••••*•••••••••••••••«••« 

TST7I SCOPE 
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SIQ ■•41 



1579 


005452 


104413 








RESET 


1589 














1 98 1 














1582 














1583 














1584 










































158 ' 














1588 














1589 




01 1777 


aafl i^ft 


1 73656 


NOV 


DRIVI^DfRRKDA 


1590 


^ * 








NOV 


RKDSfR0 


1591 


005466 


005037 


001 356 






INOXI 


1592 


005472 


005905 






CLR 


R5 


1593 












i'*14f R4 


1594 


09S474 


012704 


1 77764 




MOV 


1595 


00S500 


01 2703 


www 1 




NOV 


ff 1 r P3 


1596 














1597 












tN0X2 


1598 


005904 


005037 


001 360 


III 


ri R 


1599 














1600 


005510 


005237 


001 356 




IMC 


INDXl 


1601 


005514 


001 440 








66 


1602 


005516 


005237 


001 360 


2*1 


Twr 




1603 


005522 


001441 






BEQ 


f • 


1604 














1605 










NOV 


0R0»R1 


1606 




032701 


DV V4 w 




BIT 


ff 400ff Rt 


1607 




00177 1 






BCQ 


26 


1608 


005534 


021001 






CMP 


9R0y Rl 


1609 










BNE 


Jl 


1610 




042701 


1 77760 




BIC 


ll77760#Ri 


1611 




001 357 






BNC 


It 


1612 














1613 








36 1 


IMC 


R4 


1614 


005950 


001447 








T8T10 


1615 


005S52 






41 1 


INC 


R5 


< 1 










&E0 


66 




005556 


01 1002 








0R9# R3 


i«!a 




03 2702 


000400 




BIT 


t40ll#R3 


1 AlO 


005564 


001772 






BCQ 


41 




005566 


02 1002 






CMP 


0R0rR2 












BMC 


4f 






042702 


1 77760 




BIC 


il77760r R3 


*: 

1633 


005576 


020201 








R3f Rl 












BCQ 


44 




005602 


020203 






CMP 


R3r R3 


1636 


005604 


00 1023 








9$ 


1637 














1638 


00S606 


005203 




511 


INC 


R3 


1639 


009610 


005201 






lie 


Rt 


1630 


005613 


005005 






CLB 


R5 


1631 


005614 


000754 






BR 


36 


1633 














1633 


005616 


010137 


001162 


611 


MOV 


RifiRCce 


1634 


095622 


104012 






EBROB 12 



00 « DO CONTROL RESET 
THIS IS * CALL rOR THr 'CNTRL- 
RE8CT' ROUTINE. » CONTROt RESET IE 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CHTRt ROT' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE *CNT. RESET* IS LOCATED. 
THIS IS A VERT BASIC ERR IF IT 
OCCURS CO BACK TO TEST 10 

INITIALIEE 

'COUNT' • TO TIME 'ERROR 35' 
INITIALIZE 'COUNT' • TO TINE 
'ERROR 16' (HAIT LOOP) 

INITIALIZE 'COUNT' - FOR THE 12 SECTORS. 

83 CONTAINS THE 'NEXT' COUNT OF SEC-CMTR 

Rl CONTAINS THE 'PREVIOUS' COUNT OF SEC-CNTR 

R2 CONTAINS THE 'PRESENT* COUNT OF SEC-CNTR 

INITIALIZE 'COUNT* • TO TIME 

(NAIT LOOP) 'MROP 34* 

KEEP TIMING FOR 'ERROR 35' 

BRANCH « REPORT ERROR IF WAITED LONGT 

KEEP TIHIHC FOR 'ERROR 34' 

BRANCH & REPORT ERROR IF WAITED LONGT 

GET RKOS 

IS 'SOK' SET? 

NOr WAIT FOR IT TO SET 

HAKE SURE THAT 2 CONSECUTIVE 

READINGS OF SEC-CNTR ARE SAME 

TES> MASK OUT NON-SEC CNTR BITS 

IS IT SECTOR a, IF NOT LOOP BACK & 

WAIT FOR SECTOR 

KEEP TRACK OF SECTORS CHECKED 

|EXIT,IF ALL SECTORS CHKD 

KEEP TIRING FOR 'ERROR 36' 

•R t REPORT ERROR IF WAITED LONG 

GET RKD8 

IS SOK SETT 

NO. WAIT FOR SOK 

MAKE SORE THAT 2 CONSECUTIVE 

READINGS OF SEC-CNTR ARE SAME 

MASK NON-SEC-CNTR BITS 

HAS SEC CNTR INCREMENTCOT 

N0> WAIT FOR IT TO CHANGE 

TES. DID IT INCREMENT CORRECTLY? 

NO • REPORT ERROR 

IHCREHtNT 'NEXT QOOMT" 
INCREMENT 'PREVIOUS COUNT" 
INITIALIZE AGAIN FOR TIMING 'ERROR 36' 
GO ( CHECK THE NEXT SECTOR COUNT 

GET 'SEC CNTR' 

WAITED LONG. SOT SECTOR COUNTER 
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1635 














IDID NOT COUNT TO 


1636 


005624 


000431 






BR 


TST18 


II EXIT 


1637 
1638 


005626 


017737 


173474 


001163 711 


NOV 


»RKDS>8REO0 


(GET RKDS 


16)9 


005634 


10401 1 






ERROR 


It 


IHAITED LONG* BUT 'SOK' BIT DID 


1640 














INOT SET 


1641 


095636 


000414 






BR 


TSTtS 


MEXIT 


1642 














IGET SEC CNTR (PRESENT COUNT) 


1643 


085640 


010237 


001162 


881 


MOV 


R2,fREGB 


1644 


005644 


010337 


001 164 




MOV 


R3.8RICC1 


IGET "NEXT COUNT" 


1645 


005650 


104013 






ERROR 


13 


IWAITED LONG. BUT THE SECTOR 


1646 














(COUNTER DID NOT INCREMENT FROM 


1647 














ITHE PRESENT COUNT TO THE NEXT COUNT 


1648 


005653 


000406 






BR 


TSTtS 


IIEXIT 


1649 
















1650 


005654 


010337 


001163 


981 


MOV 


R3«8REQa 


IGET 'NEXT COUNT' (SEC CNTR SHOULD BE THIS) 


IbSl 


085660 


010237 


001 164 




MOV 


R2>8REei 


IGET PRESENT COUNT (WHAT SEC CNTR HAS) 


1652 


005664 


104014 






ERROR 


14 


ISEC CNTR INCREMENTED WRONG. DID 


1653 














|HOT INCREMENT FROM PRESENT COUNT 


1654 














|T0 NEXT COUNT 


1655 


005666 


000747 






BR 


58 




1656 










1 






1657 
















1658 
















1559 








I'TEST 


10 


CHECK THAT 


8C"Sa CAN BE GENERATED 


1660 










I» THIS 


TEST CHECKS 


THAT SC'SA CAN BE GENERATED FOR 


1661 










!• EVERY SECTOR 




1662 
















1663 


085670 


000004 




T8T10I 


SCOPE 






1664 


005672 


104413 






CNT. RESET 


iGOf DO CONTROL RESET 


1665 














ITHIS IS A CALL FOR THE 'CNTRL- 


1666 














IRESET' ROUTINE. A CONTROL RESET IS 


1667 














t ISSUED AND AFTER A CERTAIN TINE 


1668 














IIF THE 'CHTRL RDY' DOES NOT SET 


1669 














lAN ERROR IS REPORTED. NOTE THAT 


1670 














iTHE PC IN ERROR MESSAGE IS THE 


1671 














IPC WHERE 'CNT. RESET' IS LOCATED. 


1672 














ITHIS IS A VERY BASIC ERR 6 IF IT 


1673 














lOCCURS GO BACK TO TEST 10 


1674 


005674 


013704 


001350 




MOV 


ORIVA0.R4 




1675 


005700 


013700 


001326 




MOV 


RKDS.R0 




1676 


005704 


012703 


177764 




HOV 


I-14.R3 


UNITIALIZE COUNT FOR 1 OF SECTORS 


1677 


005710 


010477 


173434 


If 1 


MOV 


R4.8RK0A 


lADDRESS THE DRIVE 


1678 


005714 


005009 






CLR 


R5 


lINITIALIZE COUNT • FOR TIMING ERROR 


1679 


005716 


009205 




281 


INC 


R5 


IKEEP TIMING FOR ERROR 


1680 


005730 


001410 






BED 


31 


1 REPORT ERROR IF WAITED LONG 


1691 


005723 


011001 






MOV 


8R0«R1 


IGET RKOS 


1682 


005734 


032701 


000030 




BIT 


(20. Rl 


lis SCaSA SETT 


1683 


005730 


001772 






BEO 


38 


|N0, WAIT FOR IT 


1684 


0B5732 


005204 




481 


INC 


R4 


lADORS THE NEXT SECTOR 


1685 


005734 


009203 






IHC 


R3 


lABF ALL SECTORS CHECKED FOR 8C»S» 


16A6 


005736 


001364 






BNE 


11 


|N0, CO k CHECK NEXT 


1687 
1688 


005740 


000406 






BR 


TSTll 


MYES, EXIT 


1689 


005742 


110437 


001162 


381 


MOVB 


R4.(REG0 


ISET SECTOR ADDRESS 


1690 


B«5746 


810137 


001164 




MOV 


Rt.tREG! 


IGET BHDS 
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■to MSa 



1691 


005752 


104015 




1692 








1693 


80S7S4 


000766 




1694 








1695 








1696 








1697 








1698 


005756 


000004 




1699 


005760 


104413 




1700 


005762 


013777 


001350 


1701 


005770 


005001 




1702 


005772 


017700 


173330 


1703 


005776 


032700 


000100 


1704 


006002 


001005 




1705 


006004 


005301 




1706 


006006 


001371 




1707 


006010 


010037 


001163 


1708 


006014 


104016 




1709 


006016 


033700 


001000 


1710 


006022 


001403 




17U 


006024 


004737 


030702 


1712 


006030 


104001 




1714 








1715 








1716 








1717 








1718 








1719 








1730 








1721 








1722 








1723 








1724 








1725 








1726 








1727 








1728 


006032 


000004 




1729 


006034 


104413 




1710 








1731 








1732 








1733 








1734 








1735 








1736 








1737 








17J8 








1739 


006036 


013700 


001333 


1740 


006042 


005004 




1741 


006044 


013777 


001350 


1742 


006052 


013710 


000015 


1743 


006056 


104412 




1744 








1745 


006060 


104031 




1746 









4t 



ICOULD NOT GET SC'SA rOR THIS 
I 'SECTOR IDORESS' 
I GO CHK FOR THE REST 



1TS3S0 



CNT. RESET 


NOV 


ORIVAD,0RKOA 


Cl>R 


Rl 


HOV 


»RKDS|P0 


BIT 


fl00fR0 


BNE 


3* 


INC 


Rl 


BNE 


1* 


HOT 


R0«8REG0 


ERROR 


16 


BIT 


ll0B0fR0 


BEO 


TSI13 


JSR 


PC»Gt4RG 


ERROR 


1 



{•TEST 11 CHECK THAT 'H/H/S ROT* IS SET 6 'SI«' IS CtEAR 

TSTIll SCOPE 

>G0> DO CONTROL RESET 
> ADDRESS THE DRIVE 

111 HOV »RKDS|P0 IGET RKOS 

lis R/H/8 RDY SETT 
rTES, BRANCH 
> WAITED LONG BH0U6H7 
tir NOT IiUP BAK & HAIT 
>OET RKOa 

rR/H/S ROT SHOULD BE SET 
tlS SIN CLEARt 
llTESr EXIT 
I SET RKCSfERf DSf DA 
I 'SIN' SHOULD HAVE BEEN CLEAR 
;IT HAS HOT CLEAR 
(NEXT TEST IS GOING TO CHECK 
;ORIVE RESET* SIH SHOULD BE 
> CLEARED THEN. IT NILL BE CHECKED 
(THERE. 

• ,»»•♦«»»••»•♦••»»»•»♦•••••••»•«»•♦•»•»»••»•••••••••♦»♦♦•••••»»»« 

>»TBST 13 CHECK 'DRIVE RESET' 

(•THIS TEST CHECKS THE VERY BASIC DRIVE RESET LOGIC. 
(•SINCE THE HEADS ARE AT CYLINDER (GOING INTO THIS 
(•TEST) DRIVE RESET RETRACTS THEM BACK BEYOND CYLINDER 0, 
(•AFTER WHICH THEY ARE POSHED FORWARD TO CYLINDER AGAIN. 
(•IN THE LATER PART OF THIS PROGRAM THERE IS A DRIVE RESET 
(•TEST WHICH DOES THE RESET FROM LAST CYLINDER, 
( (••••••••••••••••••••*•*••••••••••••••••••*••••••••••••••••••••• 

TST13I SCOPE 

CNT. RESET >60r 00 CONTROL RESET 

(THIS IS A CALL FOR THE 'CNTKL- 
(RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIHE 
(IF THE 'CNTRL RDY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CNT, RESET* IS LOCATED. 
(THIS IS A VERT BASIC ERR i IT IT 
(OCCURS 80 BACK TO TEST 10 



173366 



HOV 
CLR 
MOV 
HOV 

CHXCROY 
ERROR 



RKCSf R0 
R4 

DRIVAD>»RKOA 
*1S,0R0 



(INITIALIS COUHT - TO TIME ERROR 

(ADDRESS THE DRIVE 

(•DRIVE REOTT'* GO 

(GO CHECK IF CONTROL RDY IS SET 

(IF SOr SKIP THE EROR MESSAGE. 

(CKTRL RDY DID NOT SET AFTER 

(SEND IMG CYL ADDR TO THE DRIV. 
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1747 








1748 








1749 


006062 


032777 


000100 


1750 


006070 


001005 




1751 


006072 


005204 




1752 


006074 


001373 




1753 


036076 


004737 


020702 


1754 


006102 


104026 




1755 








1756 








1757 


006104 


032777 


001000 


1758 


006112 


001403 




1759 


006114 


004737 


020702 


1760 


006120 


104001 




1761 








1762 


006122 


032710 


1 40000 


1763 


006126 


001403 




1764 


006130 


004737 


030702 


1765 


006134 


104023 




1766 








1767 


006136 


022710 


000314 


1768 








1769 


006142 


001406 




1770 


006144 


012737 


000314 


1771 


006152 


011037 


001164 


1772 


006156 


104024 




1773 








1774 








1775 








1776 








1777 








1778 








1779 








1780 








1781 








1782 


006160 


000004 




178) 


006162 


104413 




1784 








1785 








1786 








1787 








1788 








1789 








1790 








1791 








1792 








1793 


006164 


104421 




1794 








1795 


006166 


013700 


001332 


1796 


006172 


013777 


001350 


1797 








1798 


006200 


012710 


000011 


1799 


006304 


104412 




1800 








1801 


006206 


104021 




1802 









173336 211 



173314 311 



BIT 
BNE 
INC 
BNE 
JSR 
ERROR 



BIT 
BEO 
JSR 
ERROR 

BIT 
BEO 
JSR 
ERROR 



llOO.aRKDS 

3$ 

R4 

21 

PC>GT4RG 
36 



11000, ORKDS 
5« 

PC.GT4RG 
1 

«140000r8R0 
4« 

PC»0T4RG 
22 



CMP f214,»R0 



BEO 
MOV- 
MOV 
ERROR 



TST13 

I214,IREG0 

•R0,IREG1 

24 



('ADD ACK' SHOULD HAVE COME BACK 

(PROM DRIVE, THEREUPON SETTING 'CN RDY' 

(DID R/H/S RDY SETT 

(YES« BRANCH 

tNAITED L0NG7 

(IF NOT LUP BAK & HAIT 

(GO. GET RKCS* ER, DS« DA 

(R/W/S RDY DID NOT SET AFTER 

(DRIVE RESET 

(DID SIN SET? 
;N0, BRANCH 

(GO, GET RKCS.ER,DS,0A 
(SIN SET, AFTER A 
(DRIVE RESET. 

(WAS 'ERR' BIT OR 'HE' BIT SETT 
(HO 

(GO, GET RKCS, ER, OS, DA 

('ERR' OR 'HE' SIT SET WHILE DOING 

(DRIVE RESET 

(OOFS RKCS STILL CONTAIN THE 
('DRIV RES' BITS 
(I YES, EXIT 
(GET EXPCTO RKCS 
(GET RKCS. RECVD 

(NO • RKCS SHOULD CONTAIN THE 'DRIV RES' 
(FUNCTION, ERROR IF DIPPCRENT. 



( (••••••••••••••••••••«••••*••*••••••«••«*•«••••••••««•»«»•»«•«*» 

(•TEST 13 CHECK 'SEEK' TO CYLINDER 

(• THIS TEST CHECKS THE SEEK LOGIC DOING SEEK TO CYLINDER 0, 

(• NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER 0, NO 

(• HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK 

>• LOGIC. 

((••••••••••••••••••••••«••••••••••••••••••••«•••••••••»••••••••• 

TSTIK SCOPE 

CNT. RESET (GO, DO CONTROL RESET 

(THIS IS A CALL FOR THE 'CNTRL- 
(RESET* ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL ROY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR HESSAGE IS THE 
(PC WHERE 'CNT. RESET' IS LOCATED. 
(THIS IS A VERY BASIC ERR ( IF IT 
(OCCURS GO BACK TO TEST 10 
TST.SIN (60 CHECK IF SIN SET. IF SET 

(A DO ORIVF RESET TO CLEAR IT 



MOV 
HOV 



RKCS,R0 
0RIVAD,8RKDA 



HOV «11,0R0 

CHKCRDY 



(ADDRESS THE DRIVE 
('SEEK* r,o 

(GO CHECK IF CONTROL RDY IS SET 

(IF SO, SKIP THE EROR MESSAGE. 

I 'CNTRL RDY' DID NOT SET AFTER SENDING 

(CYL ADDR TO THE DRIVE, 'ADD ACK' 
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08147 


1803 


















006210 


005005 






006313 


033777 


•00100 


1807 


006330 


001005 




1808 


006333 


005305 




1809 


006334 


001373 




1810 


006326 


004737 


•30703 


1811 


006233 


104036 




1812 


006334 


033777 


001000 


1813 


006343 


001403 




1814 


006344 


004737 


010703 


18lS 


006350 


104001 




1816 








1817 








1818 








1819 








1830 


006353 


033710 


140000 


1831 


006356 


001403 




1833 








1833 


006360 


004737 


030703 


1834 


006364 


104033 




183S 








1836 


•06266 


005777 


1730)6 


1827 


006272 


001403 




1838 


006274 


004737 


030710 


1839 


006300 


104023 




1830 








1831 


006303 


033710 


000210 


18)2 


006306 


001406 




1833 


006310 


013737 


000310 


1834 


006316 


011037 


001164 


1839 


006322 


104034 




1836 








1837 








1838 








1839 








1840 








1841 








1843 








1843 








1844 








1845 








1846 








1847 








1848 


006324 


000004 




1849 


006326 


lU44t3 




1850 








1851 








1852 








1853 








1854 








less 








1856 








1857 








1858 









Til 



CHCCR 'SEtK' TO CTUHDER 



•CO MB} 



1730M 311 



411 



Sll 



0011*3 



|*TCBT 14 





R5 


BIT 


llOBdRKDS 


BNC 


38 


INC 


R5 


BNC 


2S*3 


JSR 


pe>GT4Ra 


ERROR 


36 


BIT 


tlOBOfORKDS 


Bca 


61 


JSR 


PC»CT4RG 


ERROR 


1 


BIT 


il40^V0f 8R0 


BEO 


4* 


J(R 


PCraT4R6 


ERROR 


22 


T8T 


• RKgR 


BEO 


51 


JSR 


PCrCTSRC 


ERROR 


23 


CMP 


»ai«>oR0 


BCQ 


TST14 


HO* 


«21B,|RBG0 


MOV 


•R»,«RE6t 


ERROR 
t 


34 



I SHOULD HAVE COME BACK PROR THE 
lORIVEf THEREUPON 8ETTIBC 'CHTRti ROY' 

IDIO R/H/8 ROY BIT SETT 

flESf BRANCH 

(HkllCD LONC EROUCH? 

>IF HOTf LUP BAK 6 HAIT 

>QOr GET RKCBf ER> DS« DA 

IR/H/S RD¥ DID NOT SET AfTCR SEEK 

)DIO SIM 8ET7 

>H0. BRANCH 

|60» GET RKCS.ERfOSf DA 
ISIN SET ON DOING SEEK 
ITO CTL NOTE THIS IS THE 
rPXRSr TIME THE HEADS HATE 
(BEEN MOVED 

I HAS 'ERR* OR 'HE' BIT SET^ 



iGOi GET RKCS> ER> DSr DA 

>'CRR' OR 'HE* BIT SET NHIU DOING 'SEEK' 

;liftS ANT BIT IN RKER SETf 

I NO 

|G0> GET RKCSf ER« DS 

tRKER SHOWS Alt ERROR BIT« CHECK 

IDOES PKCS STILL CONTAIN 'SEEK' PONCTION 

I I YES. EXIT 

I GET CXPCTD RKCS 
iGfT RKCB RECVD 

|HOr RKCS 8H6DL0 BE STILti CONTAINING 
('SEEK' POHCTION ERROR • IP IT CHANGED 



CHECK R/H/S fiDY IS CLEAR WHEN HEADS ARC IN MOTION 
l*THIB TEST CHCeKS THAT R/H/S DOES GET CLEARED 
|*HHEH THE MEA6S ARC IN NOTION, SINCE 'MOVE L' OH 
IM77B* (RKBS) GEHCRATCS THIS SIGKAL* ABSENCE OP 
|»R/«/B RDY-CLBAB COULD MEAN A FAULT ON N7703 
f'HHUIC 'MOfE L' IS GCHCRATBO. 

|»HOTE THIS IS THE flRST' TlllE HEADS ARC MADE TO HOVE BY SEEKING 
MTO CtLIHDBR t. 



TITt4l SCOPE 

CNT.RECET 



iGOf 00 CONTROL RESET 
)THIS IS A CALL FOR THE 'CNTRL* 
IRESCI' ROUTINE, A CONTROL RESET IS 
(ISSUED AHD AFTER A CERTAIN TINE 
IIP THE 'CHTRL ROY' DOES NOT SET 
IAN ERROR IB REPORTED. NOTE THAT 
I THE PC IH ERROR MESSAGE X# THE 
IPC NHERI 'CNT. RESET* IS LOCATED. 
ITHIB IS A VERY BASIC ERR ( IF IT 
lOeCORS 00 BACK TO TEST IB 
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1859 
t8S0 
1461 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1879 
1876 
1877 
1878 
1879 
1880 
IB81 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1*92 
1893 
1*94 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1989 
1910 
1911 
1913 
19U 
191 1 



006330 104431 



0196332 
006336 

006340 
0196342 
006350 
006356 
006363 
006370 
086374 
006376 
006400 
006403 
006406 



006410 
006414 



006416 
006430 



004737 
104036 

005003 
01)777 
053777 
013701 
B12777 
P32711 
001405 
0052aS 
10037) 
004737 
104025 



004717 
104016 



•00904 
104413 



••1350 172770 

000100 1737*3 
•01336 

Oeoeil 1737*3 
•••100 



020710 



TST.SXI 

^SR 
IRROR 

CLR 
MOV 
BIS 
NOV 
NOV 
BIT 
BEO 
INC 
BPL 
JSR 
ERROR 



PCfDREBBT 
36 

R5 

DRI!^«Dr*RKDA 

tlOBifRKDA 

RKDIiRl 

«ll«-RRKeS 

tl^l,ORl 

It 

R* 

1* 

PC>GT3RG 
35 



JSR 
ERROR 



PCitSTRHS 
16 



rGO CHECK IF SIN IS SET 

I IF SET DO DRV'RESET TO CLR IT 

(MAKE SURE HEADS R ON CYL 

IR/M/S RDY DIDN'T SET 

t AFTER THC ABOVE DRV RESET 



ISCEK CYLINDER 3 
|SCGK> GO 

(DID R/H/S RDY CLRT 
iVES, BRANCH 



IR/N/S RDY MAS NOT CLEAR MHEN HEADS 
IHCRC SEEKING TO CYLINDER 3 

tOOf HAIT FOR R/H/S RDY TO SET 
> R/H/S RDY DID NOT SET AFTER SEEK 
>NAS TRIED TO CYLINDER 2 (ABOVE). 
INOTE THIS HAS THE FIRST TIME A SEER 
(MAS TRIED TO A CYLINDER OTHER THAN 
10. 



>»TB8I 15 



CHECK 'MRITE* FORMAT FUNGTION«CYLINDER 0« SECTOR 
l*THI8 TBBT CHCCICS THE LOGIC INVOLVED IN THE NRITt FMT 
(•FUNCTION. ON ISSUING A MRT FMT, THE FOLLOHING tS CHECKED 
1*1 ) CNTRL ROY HAS CLEARED AS 00 HA* SET. 

1*2) CNTRL Ml SETS WITHIN A CERTAIN TIME ON CONPLCTION OF FUNCTION 
I*)) IF 'HE' OR *IM* BIT SCTt 

1*4) IF RKDA INCRCHBNTED CORRECTLY FROM TO IT 
1*9) IF RKHC OVCRPLOWEO CORRECTLY TO 07 
!•*} IF RKBA INCPCHENTED CORRECTLY BY 2? 
I»7) IF ANY BIT IN RKER SCTT 

»•*) IF THE 'HRT FMT' FUNCTION BITS ARE STILL IN THE RKC8T 
l*NOTE THAT ONE MORD '135352' HAS NRITTEH ON SECTOR 
1*0 ( IT MILL BE CHECKED IN THE NEXT TESTS. 



SCOPE 
CNT.RBSET 



006432 184*31 



TST.SIN 



|G0> 00 CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL' 
IRESEI' ROUTINE. A CONTROL RESET It 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL RDY' DOES NOT SET 
(AN ERROR IS RGPORTEO. MOTE THAT 
(THE PC IN ERROR MESSAGE IS THC 
IPC HHERE 'CNT. RESET' IS LOCATED. 
(THIS IS A VERT BASIC ERR 6 IF IT 
(OCCURS GO BACK TO TEST 10 
(CO CHECK IF SIN IS SET 
I IF SET, 00 DRIVE RESET TO CLR IT 
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(THIS CODE SETS UP A 256 WORD BUFrEP 
;HHICH Hllili BE USED TO MRITE 1 SECTOR 
tOH THE DISK 
flSI HORD 000001 

(2N0 HORD 177777 3'8 COMPLEMENT 

f}RD HORD 000002 OF ABOVE 

f4TH WORD 177776 
I 

I293RD WORD 000177 
)354TH HORD 177601 
I2S9TH HORD 000000 
f2S6TH HORD 129252 



SEO 0054 



1915 


006424 


013703 


033240 






MOV 


tO0TBt>F(R3 


1916 
















1917 
















1918 
















1919 
















1920 
















1921 
















1922 
















1923 
















1924 
















1929 
















1926 
















1927 
















1928 














tl»RO 


1929 


006430 


012700 


000001 






HOT 


1930 














RB»(R3)« 


1931 


006434 


010023 






9tl 


MOT 


1932 


006436 


010013 








HOT 


R0> (R3) 


1933 


006440 


005423 








NEC 


(R3) + 


1934 


006442 


005200 








INC 


R0 


1939 


006444 


022700 


000200 






CHP 


•30Bf R0 


1936 


006450 


001371 








BNt 


>• 


1937 


006452 


005023 








cut 


(R3)* 


1938 


006454 


012713 


125292 






MOT 


•12S292f ORS 


1939 














•OOfBOPfRS 


1940 


006460 


012703 


033240 






MOT 


1941 


006464 


013701 


001332 






MOT 


RKCS»R1 


1942 


006470 


013703 


001336 






MOT 


RKBft«R2 


1943 


006474 


010312 








HOT 


R>r0R2 


1944 


006476 


012777 


177400 


172630 




HOT 


t»4OOf0RRHe' 


1949 


006504 


013777 


001350 


112626 




MOT 


DRITUf ORROlk 


1946 


006912 


012711 


002003 






MOT 


•3f03«0Rl 


1947 
















1948 


006516 


109711 






181 


TSTB 


•Rt 


1949 


006520 


100003 








BPL 


38 


1950 


006522 


004737 


020710 






JSR 




1951 


006526 


104030 








ERROR 


30 


1952 
















1953 


006530 


009000 






281 


CiR 


R0 


1994 


006532 


105711 








TSTB 


tRl 


1955 


006534 


10041 1 








BHI 


38 


1956 


006536 


005200 








INC 


R0 


1957 


006540 


001374 








BNC 


28t2 


1958 
















1959 


006542 


004737 


020702 






JSR 


PCf GT4RG 


1960 


006546 


013737 


001390 


001202 




MOT 


DRIVAD>8RE6t0 


1961 


006554 


104416 








BRKDM 




1962 
















1963 


006556 


104031 








ERROR 


31 


1964 
















1965 
















1966 
















1967 


006560 


004717 


021142 




381 


JSR 


PCtCHKHE 


1968 
















1969 
















1970 


006564 


104032 








ERROR 


32 



fSET COUNT 

I SET UP DATA HORDS 



lOOHCT 



I SET 299TH HORD TO 
rSCT 296TH NORO 



IRESET POINTER TO OUTBUF 



I FROM HERE»8ET UP CURRENT ADDRESS 

ISET UP HORD COUNT 400 HORDS 

IBET UP DISK ADDRSf BECt^R »t CYLINDER 

INRITE FORMAT* GO 

INAS 'CNTRL ROT' CLEARED AS CO HAS SETT 

|XC8> BRANCH 

tOOt CET RKCSf ER> OS 

l*eNTRL ROT* DIDN'T CLEAR AS GO 

I HAS SET TO 'WRITE FORMAT' 

IHAS 'CNTRL ROY' SET ON COMPLETION OF WRITE? 
iTESi BRANCH 

|R0, HAVE U HAITED LONG ENOUGH? 
IIP NOTf LOOP BACK & WAIT 
I IF IES» REPORT ERROR 
lOO, GET RKCSf ER, DSfDA 

>G0 TO 'B0A4* t BREAK CONTCBTS OF 

;8Re«i0 xnrb dr t,CTLr8UR,scc bits 

I 'CNTRL ROT' DIDN'T SET ON COMPLETION 
lOF WRITE FORMAT 

>WRT FHT WAS DONE STARTING AT <DSK>ADReS> 

I INDICATED IN EROR HSGE. 

;G0 CHECK IF 'HE' OR 'ERR' BIT SBI» 

I IF YESf SAVE RKCSf ER> DS> DA. 

fRETORN HERE IF ERROR. 

I 'HE' OR 'ERR' BIT SET WHILE DOING 
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1971 






1972 






1973 






1974 


006566 


004737 


1975 






1976 


006572 


104033 


1977 






1978 


006574 


004737 


1979 






1980 


006600 


104034 


1981 






1982 


006602 


023712 


1983 


006606 


001406 


1984 


006610 


012737 


1985 


006616 


011237 


1986 


0ti6622 


104039 


1987 






1988 


006624 


004737 


1999 






1998 


006630 


104036 


1991 






1992 


006632 


022711 


199J 


006636 


001406 


1994 


006640 


013737 


1999 


006646 


011137 


1996 


006652 


104024 


1997 






1999 






1999 






2000 






2001 






2002 






2003 






2004 






2005 






2006 






2007 






2008 






2009 






2010 






2011 






2012 






2013 






2014 






2015 






2016 






2017 






2018 






2019 






2020 


006654 


000004 


2021 


006656 


009000 


2022 


006660 


104413 


2023 






2034 






2025 






2026 







031170 



031324 



034340 
001164 



003302 
001164 







|A WRITE FORMAT 






IWRT FHT HAS DONE STARTING AT <OSK>ADRES> 






1 INDICATED IN EROR HSGE, 


JBR 


RC«CHKDA 


rCO CHECK IP RKDA INCREMENTED CORRECTLY 






>IF HOT» RETURN HERE. 


ERROR 


33 


IRKDA SHOULD HAVE INCREMENTED BY 






|1 SECTORr IT DID NOT 


JSR 


PCtCHKHC 


;CHECK IF HORD COUNT OTERFLOHEOf IF 






{NOT RETURN HERE. 


ERROR 


34 


IRKHC DID NOT OVERFLOW TO 9, AFTER 






IXFER OH WRITE FORMAT 


CMP 


8OOTBUF«1B0O, 


r»R3 lOID RKBA INCREMENT CORRECTLY? 


BBO 


78 


SYES, BRANCH 


MOT 


•OUTBUF41O0Bi 


r8REM IGET EXPCTD RKBA 


MOT 


•RS.8REG1 


IGET ACTUAL RKBA 


ERROR 


)S 


IRKBA DIDN'T INCREMENT BY 1000 AFTER 






(WRITE FORMAT OF 400 WORDS 


JSR 


PCVCHKER 


(CHECK lOP ANT BIT IB RKBR SET, 






IIF YES RETURN HERE. 


ERROR 


36 


IRRER BIT SET ON DOING i WORD 






rHRITE FORMAT 


CMP 


*2303>8IK1 


lOOES RKCS STILL HAVE 'HRT FMT' BITSf 


BEO 


TST16 


II YESf EXIT 


HOT 


I2302>8REG0 


IGET EXPCTD RKCS 


MOV 


•R1,8REG1 


IGET ACTUAL RKC8 


ERROR 


34 


JRKCS DIDN'T CONTAIN *WRT FHT* BITS 






1 AFTER THE FUNCTION HAS COMPLETED 



I 

1 1 ••»•••••••••••••#•••«•»•»•••«•»••••••«•••••«•«•«»««•««*««««**«« 

»*TEST 16 CHECK 'READ FORMAT' FUHCTIOM-CTLIWDER Bf SECTOR 

>»THIS TEST CHECKS THE LOGIC INVOLVED IN THE HRITE FHT 
(•FUNCTION. ON ISSUING A HRT FNTf THE FOLLOHING IS CHECKED 
1*1) CNTRL RDY HAS CLEARED AS CO HAS SET. 

I •3) CNTRL RDY SETS HITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 
»»3) IF 'HE* OR 'ERR' BIT SET? 

J •4) IF RKDA INCREMENTED CORRECTLY FROM TO IT 

»»5) IF RKWC OVERFLOWED CORRECTLY TO 07 

r*6) IF RKBA INCREMENTED CORRECTLY BY 27 

1*7} IF ANY BIT IN RKER SET? 

>*8) IF THE CORRECT HEADER HAS RECEIVED? 

1*9) FOR RKllCf AFTER RD FMT RKDB CONTAINS THE CHECKSUM 

t»FOR THAT SECTOR, (13S2S2 IN THIS CASE, BECAUSE THE 

MFIRST HORD IN SEC HAS NRITTEN AS 125252 IN 

I •THE PREVIOUS TEST) 

I •IB) FOR RKllDf AFTER RD FMT RKDB SHOULD CONTAIN 
I 'A ZERO 

1*11) IF THE RD FMT FUNCTION BITS ARE STILL IN 
I»THE RKC3T 

1 1 ••••••*•••*••••••••••••••••»«••••»•••«•»«•»«••••«•»••••••••**»* 

T8T16I SCOPE 

CLR RO 

CNT. RESET |G0, 00 CONTROL RESET 

ITHIS IS A CALL FOR THE 'CNTRL> 
IRESET' ROUTINE. A CONTROL RESET IS 
{ISSUED AND AFTER A CERTAIN TIME 
I IF THE 'CNTRL RDY' DOES HOT SET 
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I AM ERROR IS REPORTED. NOTE THAT 
ITHE PC IM ERROR MESSAGE IS THE 
(PC HHERE *CNT. RESET' IS LOCATED. 
I THIS IS A VBRI BASIC ERR » IF IT 
f OCCURS GO BACK TO TEST 1« 
ISO CHECK IF SIN IS SET 
)ir SET, 00 DRIVE RESET TO CIR II 



SETUP ADRS HHERE HEADER riORD IS TO BE 
X'FCRRED 

SET UP HORD COONT 

SET OP DISK ADRS> SECTOR 0, CYLINDER 
READ FORMAT, 60 

WAS 'CNTRL RDT' CLEARED AS CO WAS SElt 

TES, BRANCH 

GO, GET RKCS, RKER 

CNTRL RDT DIDN'T CLEAR AS 00 «AS 

SET TO 'READ FORMAT' 

WAS 'CNTRL RDT' SET ON COMPLETION OF 

TRANSFER 

XES, BRANCH 

NO, HAVE WAITED LONG ENOUGH? 
IF HOT, LOOP BACK 6 WAIT 
ir TES, REPORT ERROR 
GO, GET RKCS, ER, D8,DA 

CO TO *BDA4' ( BREAK CONTENTS OF 
tPECie INTO OR t,Cn.,SUR,SEC BITS 
•CNTRL ROIt' DIDN'T SET OH COMPLETION 
OF READ FORMAT 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR HESGE 

CHECK IF 'ERR' OR 'HE' BIT SET, IF 

YES RETURN HERE. 

'HE* OR 'ERR' BIT SET WHILE 

DOING A 'READ FORMAT' 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK tr RKDA INCREMENTED CORRECTLY 

IF NOT, RETURN HERE. 

RKDA SHOOLD HAVE INCREMENTED 

BY 1 SECTOR, IT DID NOT 

CHECK IP RKHC OVERFLOWED TO 0, IF 

NOT RETURN HERE. 

RKWC DID NOT OVERFLOW TO 

AFTER XrER ON READ FORMAT 

DID RKBA INCREMENT TO NXT WORD ADDRSf 

YES, BRANCH 

GET EXPCTO RKBA 

GET ACTUAL RKBA 

RKBA DIDN'T INCREMENT BY 2 AFTER 



1037 
















2B2« 
















2029 
















2«3a 
















203 1 
















2032 


006662 


104421 








TST.SIN 




203) 
















2034 


006664 


013701 


001332 






MOV 


RKCSfRl 


203S 


006670 


013702 


001336 






MOV 


RKBA,R2 


2036 


006674 


012703 


033240 






MOV 


IOaTBUF,R3 


2037 


006700 


010312 








MOV 


R3,»R2 


2038 
















2039 


006702 


012777 


177777 


172424 




MOV 


t-l»»RKWC 


2040 


006710 


013777 


001 3S0 


172423 




MOV 


DRIVAO.ORKDA 


2041 


006716 


012711 


002O0S 






HOV 


12005, aRl 


2042 
















2043 


006732 


105711 






181 


TSTB 


•Rl 


2044 


006724 


100003 








BPL 


28 


2045 


006726 


004737 


020710 






J8R 


PC,6T3RG 


2046 


006732 


104030 








ERROR 


30 


2047 
















2048 


006734 


005000 






211 


CLR 


RB 


2)449 


006736 


105711 








TSTB 


»R1 


2050 














38 


2051 


006740 


100411 








BHI 


2052 


006743 


005200 








INC 


R0 


3053 


006744 


001374 








BNE 


>8'f2 


2054 
















2055 


006746 


004737 


020703 






JSR 


PC',GT4R6 


2056 


006752 


013737 


001350 


001 at! 




HOV 


DRIVAD,8REG10 


2057 


006760 


104416 








BRKDA4 




2058 
















2059 


006762 


104045 








ERROR 


45 


2060 
















2061 
















2062 














PCCHKHE 


2063 


006764 


004737 


021142 




381 


JSR 


2064 
















2065 


006770 


104046 








ERROR 


46 


2t<66 
















2067 
















2068 
















2069 


006772 


004737 


021170 




481 


JSR 


PCCHKDA 


2070 
















2071 


006776 


104040 








ERROR 


40 


3072 
















2073 
















2074 


007000 


004737 


021224 




981 


JSR 


PCrCHKHC 


2075 
















2076 


007004 


104041 








ERROR 


41 


2077 
















2078 


807006 


022712 


033242 




681 


CMP 


touTaur«2,BR2 


2079 


007012 


001406 








BEQ 


78 


20R0 


0^7014 


012737 


033242 


001163 




MOV 


*OUTBOF+3,8REGO 


2081 


807023 


011237 


001164 






MOV 


BR],8RCG1 


3082 


007026 


104042 








ERROR 


42 
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FUNCIIOM-CILINDEB 0, SECTOR 



208J 

7mi 

2086 
2087 
2088 
2389 
3090 
3091 
2092 
2093 
3094 
2095 
2096 
2097 
2098 
2H99 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 

3m 

2113 
3111 
2114 
2115 
2116 
2117 
2118 
3119 
2120 
2121 
2123 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2118 
2111 
2132 
21 13 
21 94 
21 IS 
2116 
31 17 
21 IB 













I'REAO FORMAT' OF 1 HORD 


007030 


004737 


021250 781 


JSR 


PCtCHKER 


(CHECK IF ANY BIT IN RKER SET. IF 
lYES RETURN HERE. 


007034 


104036 




ERROR 


36 


IRKER BIT SET ON DOING 
ll WORD READ rORNAT 


007036 


005713 


881 


TBT 


ORI 


(DOES OUTBUF CONTAIN THE HEADER 
tHORO-0 


007040 


001407 




BEO 


98 


>YE8, BRANCH 


007042 


005037 


001162 


CLR 


SREC0 


>GET SECTOR NO. 


007046 


005037 


001164 


CLR 


8REC1 


lEXPCTD HEADER 


007052 


011337 


001166 


MOV 


0Rl,8RECa 


(GET HEADER RECVD 


007056 


10404 3 




ERROR 


43 


(CORRECT HEADER HORD-0-WAS 
>NOT RECCIVCD ON READ FORMAT 


007060 


022711 


002304 981 


CMP 


13304, 8Rt 


IDOES PRCS HAVE THE 'RDFNT' BITS7 


007064 


001406 




BEO 


TStl7 


flYES, BRANCH 


007066 


013737 


003204 001163 


MOV 


13204, 8RBG0 


)GET EXPCTD RKCS 


007074 


011137 


001164 


•"OV 


RRlfSRECl 


tCET ACTUAL RKCS 


007100 


104024 




ERROR 


34 


JRKCS DIDN'T CONTAIN 'RO FMI' 
(BITS AFTER FUNCTION WAS 
(COMPLETED 



007102 
007104 



0071 10 
0a7114 
0«71 16 
097122 



t (••»•• 
(•TEST 



17 CHECK 'READ' FUNCTION-CYLINDER 0, SECTOR 

(•THIS IS THE FIRST TIME A PURE READ IS PREFORMED IN THIS 
(•TEST SEQUENCE. THE FOLLOWING IS CHECKED 
(•1) CNTRL RDT CLEARS AS GO IS SET 

(•3) CNTRL Ml SETS WITHIN A CERTAIN TIME ON COMPLETION 
(•OF FUNCTION 

(•3) IF 'HE' OR 'ERR' BIT SETT 
(•4) ir RKDA INCREMENTED CORRBCTLYT 
(•5) IF RKHC OVERFLOWED TO OT 
(»6> IF RKBA XNCPEMENTED CDRRECTLYT 
(•7) IF ANY RKER BIT SETT 

(*e) ir THE CORRECT PSUEDO«HEADER (FIRST WORD) WAS 
(•READ FROM SECTOR 

(•9) IF THE 'READ' FUNCTION SITS ARE STILL IN RKCS 



0.)0004 
104413 



TSTt7l 



SCOPE 
CNT. RESET 



007106 tU443t 



011701 

005000 

01 1703 
01 3703 



(GO, DO CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
(RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL RDY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CNT. RESET' IS LOCATED. 
(THIS IS A VERY BASIC ERR i IF IT 
(OCCURS GO BACK TO TEST 10 
(GO CHECK IF SIN IS SET 
(IF SET, DO DRIVE RESET TO CLR IT 



00133b 
033340 



HOV 
CI.R 
HOV 
HOV 



RKBAf R3 
•OUTBUF, R3 
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sKQ aess 



2139 


007126 


010)13 








HOV 


2140 














3141 


007130 


912777 


177400 


172176 




NOV 


2143 


007136 


013777 


001)50 


172174 




MOV 


314) 


007144 


013711 


000005 






MOV 


2144 














3145 


007150 


105711 






181 


TSTB 


2146 


007152 


100003 








BPL 


3147 


007154 


004737 


020710 






J8R 


2148 


007160 


104030 








ERROR 


3149 














21S0 


007162 


005000 






2*1 


CLR 


3151 


007164 


105711 








TSTB 


3152 














315) 


007166 


100411 








BHI 


3154 


007170 


005200 








IHC 


2155 


007172 


001374 








BNE 


2156 














2157 


007174 


0047)7 


020702 






JSR 


21S8 


007300 


01)7)7 


001350 


001303 




HOV 


3159 


007206 


104416 








BRKDA4 


3160 














3161 


007218 


S04»45 








ERROR 


2163 














216) 














1164 






























007212 


004737 


021142 




3(1 


JSR 


3167 














3168 


007216 


104046 








ERROR 


3169 














3170 














3171 














2172 


007220 


0047)7 


021170 




4*1 


JSR 


217) 














2174 


007224 


104040 








ERROR 


3175 














3176 


007236 


0047)7 


031224 




SSI 


JSR 


2177 














3179 


0073)3 


104041 








ERROR 


3179 














3180 


0i97234 


027712 


0)4240 




611 


CMP 


2191 


007240 


001406 








BEQ 


3182 


007242 


012737 


0)4240 


001 1(2 




MOV 


218) 


007250 


011237 


001164 






MOV 


2184 


007254 


104042 








ERROR 


2195 














2186 


007256 


0947)7 


021250 




7«t 


JSR 


2187 














2188 


»S'7262 


104«)6 








ERROR 


2189 














2190 


907264 


022713 


000001 




8*1 


CMP 


3191 














2192 


H97270 


001411 








BCO 


?19) 


037272 


0127)7 


000001 


001163 




MOV 


21'J4 


007300 


01 1 3)7 


0>)1164 






MOV 



R3,«R2 

f.400««RKWC 

ORtT«0>»RKDA 

tS,0Rt 

BRl 
2$ 

PC>GT3RS 
30 

R0 



31 

R0 

2I«3 

PCrGT4RG 
ORIVADitREGia 



PC«CHKHC 
46 

PCfCHKOk 

4a 

PC»CHK«C 
41 

fOUTBUr«100( 
71 

tOUTBUPfl000>*ReO0 
•R2,(REG1 
43 

PC>CHKER 
36 

tl>«R3 
9* 

«l,tREC0 
(R3)>«REG1 



SET UP ADORS HHERE DATA WORD IS 
TO BE X-FERRED 
SET UP WORD COUNT 

SET UP DISK ADRS, SECTOR 6, CYLINDER 
READr GO 

MAS 'CNTRL ROf CLEARED AS GO WAS SETT 

YESr BRANCH 

GO. GET RKCS, ER 

CNTRL RDY DID HOT CtiEAR AS GO 

WAS SET TO 'READ' 

HAS CHTRL RDY SET OH COMPLETION 
OF TRANSFER7 
YESt BRANCH 

N0> HAVE U WAITED LONG ENOUGH? 
IF NOT> LOOP BACK 6 WAIT 
IF YES> REPORT ERROR 
GQ> GET RKCSt ER> OS, OA 

GO TO *BPA4' ( BREAK CONTENTS OF 
tREGi0 INTO DR f ,CYLf SUR,SEC BITS 
CNTRL ROT DID NOT SET ON 
COMPLETION OF READ 

READ HAS DONE STARTING AT <DSK-ADRE3> 
INDICATED IN EROR MESSE 

CHECK ir 'ERR' OR 'HE* BIT IS SET 
IF YESi RETURN HERE. 
'HE' OR 'ERR' BIT SET WHILE 
DOING A READ, 

READ HAS DONE STARTING AT <DSK>ADRES> 
INDICATED IR EROR MES6E 
CHECK IF RKOA INCREMENTED CORRECTLY. 
IF NOT RETURN HERE. 
RKDA DID NOT INCREMENT 
BY 1 (SECTOR) 

CHECK IF RKHC OVERFLOWED TO 0« 
IF NOT RETURN HERE. 
RKHC DID NOT OVERFLOW TO 0» 
AFTER X-FEP ON BEAD 

IDID RKBA INCREMENT CORRECTLY? 
YES, BRANCH 

I GET EXPCTD RKBA 
GET ACTUAL RKBA 
RKPA DID HOT INCREMENT BY 2 
AFTER 'BEAD' OF I WORD 
CHECK IF ANY BIT IN BKER SET, 
IF YES RETURN HERE. 
RKER BIT SET ON DOING 1 
WORD 'READ' 

DOES OUTBUF CONTAIN THE RIGHT 
DATA WORD 
YES BRANCH 

GET EXPCTD DATA WORD 
GET RECVO DATA WORD 



MAINPEC 


-1 1-DZRKK-O 


MACYll 


OZRKKD. 


PI 1 77 


-SEP-76 


09147 


2195 


007)04 


1^1 3737 


001350 


—■2196 


007)12 


104044 




2197 








2199 








2199 
















2201 








220? 








220) 








2204 








22i»5 








22PI6 








2207 








22H9 








2209 








2210 








2211 


007314 


027777 


125252 


2212 


007322 


001407 




2213 


007324 


0127)7 


135353 


2214 


007332 


0177)7 


172004 


2215 


007340 


104037 




2216 








2217 








2218 


007)42 


023711 


000304 


2219 


007346 


001406 




2220 


097350 


0127)7 


000304 


2221 


007)56 


011137 


001164 


2222 


007362 


104024 




222) 








2224 








2225 


007364 


104413 




2226 


007366 


005777 


1717SB 


2227 


007372 


001407 




2228 


007)74 


01)7)7 


001342 


2229 


007403 


017737 


171734 


22)0 


007410 


104103 




22)1 








2232 








2233 








2234 








2235 








2236 








3237 








2238 








2239 








2340 








2241 








2242 








224) 








2244 








2245 








2246 


037412 


000004 




2247 


007414 


ni 3703 


001332 


7248 


007420 


012702 


177764 


2249 


007424 


01 3704 


001 340 


2350 


0074)0 


01 3701 


001 350 



04«OCT>76 16106 PACE 42 
T17 CHECK 'READ' FUNCTION-CYLINDER 0, SECTOR 



MOV 
ERROR 



DRIVAD,SREG2 
44 



173010 911 



001162 



CMP 

BEQ 
MOV 
MOV 
ERROR 



CMP 
BEQ 
MOV 
MOV 
ERROR 



1135353, 0RKDB 
10* 

1125353, IREG0 

tRKDB,(REGl 

37 



f304,fRl 
IK 

l204rlRE60 
•Rl,IRCGt 

34 



001164 
001164 



CNT. RESET 
TSt 6RKDB 
BEQ TST30 
MOV RKOBflREGl 
HOV fRKDBr^REGl 
ERROR 102 



jGET DISK ADRS FROM WHICH READ HAS DONE 
>OID NOT READ THE CORRECT 
)DATA WOR0-«FR0M DISK ADRES, 

JSEC 0, CYL 0, SUR 

; AFTER 1 SECTOR READ RKDB CONTAINS 
JFOR RKUe 

(THE CHECKSUM FOR THAT SECTOR 
trOR RKllO 

(THE LAST WORD TRANSFERRED TO MEMORY 
> 

;II SO HAPPENS THAT WITH THE SECTOR 
iTHAT WAS READ, RKDB CONTAINS THE 
;SAME INFORMATION FOR BOTH RKllC 
)AND RKllD 

J DOES RKDB CONTAIN THE EXPCTD WORD? 

lYES, BRANCH 

(GET EXPCTD RKDB 

J GET RECVD RKDB 

IRKDB OOESD NOT CONTAIN THE 

1 EXPCTD WORD AFTER A READ OF SEC 

JCYL 9 

IPOES HKCS HAVE THE 'RSUkO' BITST 

ires , BRANCH 

I SET EXPCTD RKCS 

I GET RECVD RKCS 

1 RKCS DID HOT CONTAIN 'READ' 

IFUHCTION BITS AFTER OPERATION 

I HAS COHPLETEO 

>G0 00 CONTROL RESET 

(DID CONTROL RESET CLEAR BKOB? 

fllESr EXIT 

I GET ADRES OF RKDB 

(GET CONTENTS OF RKDB 

tCONTROL RESET DIDN'T CLR RKDB 



»»I8ST 30 CHECK 'WRITE FORMAT' -CYLINDER 8, SECTOR 0-13 

(•THIS TEST GOES ONE STEP FURTHER & PERFORMS A HBT 
(•FHT ON CYLINDER 6 CHECKS THE FOLLOWING 

1*1) IF CNTRL RDY SET HITHIH A CERTAIN TIME ON COMPLETION 

»»0F THE FUNCTION 

J»2) IF 'HE' OR 'ERR' BIT SETT 

(•3) IF THE RKOA INCREMENTS CORRECTLTT 

!»4) IF THE RKDB T8 CLEART 

J»WRT FMT IS DONE ONE SECTOR AT A TIME 
\ »»THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 

* l*PSUEDO-HEAOER CONSISTING OF DRIVE I, CYLINDER t, SURFACE 

)•& SECTOR t. THIS HILL BE READ f. CHECKED IN THE FOLLOWING TEST. 



TST20: 



SCOPE 

MOV 

MOV 

MOV 

MOV 



RKCS.K3 
>-14,R2 
RK0A,R4 
DRIVADfPl 



(SET UP COUNT FOP 12 SECTORS 



;GET DRIVE ADDRESS 



HKCrtt 27(M 



DSRlCKDa 


9tl 22-SrP-76 


06147 




2151 


••74)4 


010109 






2]f I 


••74)6 


009209 






22S) 


••7440 


0127)7 


0*7446 


OOltlO 


22S4 










22SS 


••7446 


10461) 






22SC 










22ST 










22St 










22SV 










22CV 










22C1 










22#2 










22(3 










22C4 










22ft9 


O074S0 


104421 






2266 










2267 


••74S2 


0090«0 






2266 


••7454 


0101)7 


0))240 




2269 










2270 










2271 










2272 








I716l0 


227) 


•07460 


012777 


•))240 


227 V 










2279 


007466 


012777 


177777 


171640 


2276 


007474 


010114 






2277 


••7476 


01271) 


00200) 




2276 










2279 


•07502 


105777 


171624 




2260 


••7906 


100410 






2261 


••7910 


009200 






2262 


007512 


001)7) 






226) 










2264 


007914 


0047)7 


020702 




226S 


••7520 


0101)7 


001302 




2266 










2267 


•07524 


104416 






2266 










2269 


007526 


1040)1 






2290 










2291 










2292 










229) 


0075)0 


0047)7 


0211)4 




2294 










229S 


0075)4 


1040)2 






2296 










2297 










2296 










2299 










2300 










2301 










2302 


•075)6 


0047)7 


021176 




230) 










2)64 


•17942 


1040)) 






2)69 










2106 











) 04-0CTO6 16l«6 PACE 4) _ 

T20 CMCCK 'OTIW rORH«T' -CrLINOEB 0t StCTOB 0-1) 



nov 

INC 
NOV 



us 

ll6>iLPEItR 



CHT.MEtCT 



T6T.IIN 



t STORE IT 

I SET RCTORM MORES TOR LOPIRG 

ION ERROR (8H 9) 

iGOr DO CONTROL RESET 

I THIS IS » C»t,Ii rOR THE 'CNTPIi- 

tRESET' BOUTIWE. » CONTROL RESET IS 

(ISSUED AND AFTER A CERTAIN TINE 

lir THE 'CNTRL ROY' DOES MOT SET 

IAN ERROR IS REPORTED. NOTE THAT 

I THE PC IN ERROR MESSAGE IS THE 

IPC HHERt 'CNT. RESET' IS tOCATEO. 

ITHIS IS A VERY BASIC ERR L ir IT 

lOCCORS 00 BACK TO TEST 10 

ISO CHECK IP SIN IS SET 

tir SET. DO DRIVE RESET TO CLR IT 



36 1 



CbR 
NOV 



NOV 

NOV 
NOV 
NOV 

T8TB 
BMI 

ihC 

BNE 

JSR 
MOV 



RO 

RltOOTOUr 



rTHIS MORD TO BE X-FERREO. FIRST 
INORD OF EACH SECTOR HtU. BE THE 
lACTUAL DRIVE-AOORS CONStBTIMS OF 
tORIVE NO, CYL ADDRS> SOIVACE 
I SECTOR MO. 

I00TBUF,6RKBA lAORS PROM WHICH DATA WORD IS TO 

I X-PERRED 
(•IfRRRHC )SET UP MORD COUNT 

ilt,6R4 lADDRS THE ORIVEf CYL 0> fc CORRECT SECTOR 
•2O03r6R) iHRITi FORMAT, 60 



6RKCS 
)6 
RO 
26 

PC,6T4RC 
R1>6RBB10 



BRK0A4 
ERROR )1 



JSR PCCHKHEl 
ERROR )2 



JSR PCvCHKDAl 
ERROR )) 



I DID 'CHTRL RDY' SETT 
iVESt BRANCH 

iHOr HAVE U WAITED LONGT 
I IF NOT, LOOP BACK t WAIT 
IIP TBB, REPORT ERROR 

ISO, OCT RKCS, en, db,da 

iGEt OIBK AORS (UNIT>CTL,SUR,SEC) TO WHICH 
(WRITE FORMAT HAS DONE 
I GO TO '•DA4' 6 BREAK CONTENTS OF 
;*REC10 INTO OR f ,CYL,8UR,SEC BITS 
i'CNTRL RDY' DID NOT SET ON COHPLETION 
;0F 'WRITE FORMAT* 

;WRT FNT HAS DOME STARTING AT <DSK-ADRES> 

> INDICATED IN EROR NSGE. 

ICHECK IF 'ERR' OR 'HE' BIT IS SET, 

I IF YES RETURN HERE. 

I 'HE' OR 'ERR' BIT SET WHILE DOING 

IHRITC FORMAT OH CYLINDER 0, 

ISECTOR IN ERROR It AS SHOWN IM 

IDISK'ADRES BITS 0»3 

IWRT PHT WAS DONE STARTING AT <DSR-AORES> 
r INDICATED IN EROR MSCE. 

tCHECK IP RKDA INCKEHENTEO CORRECTLY^ 

IRKDA DID NOT INCREMENT CORRECT 
I AFTER I WORD 'MHtTE FORMAT' ON 
ICYLINOER 0> SECTOR IN ERROR IS I 



MAINOBC*ll-OtRKK-D NACYll 27(100«) 04-OCT«76 16106 PACE 44 

DIRKKO.Pll 32«SEP>76 06l47 T20 CHECK 'WRITE FORMAT' -CYLINDER 0, SECTOR 0*1) 



2)07 






2)06 


067544 


009777 


2)69 






2)10 






2)11 


007590 


0014«6 


2)12 


007953 


0050)7 


2)1) 


007956 


0177)7 


2)14 


•07964 


1040)7 


2)19 






2316 






2117 


•07966 


005201 


2316 


•07970 


009209 


2)19 


O07S73 


122709 


2)20 


007976 


001002 


2)31 


007600 


062705 


2)32 






2)2) 


007604 


005202 


2)24 


007606 


001)17 


3)29 






2326 






2327 






2326 






3329 






23)0 






23)1 






2))2 






2))) 






2))4 






2)39 






2))6 






2)37 






2))6 






2)39 






2)40 






2341 






2342 






3)4) 






3)44 






3)45 






3)46 


••7610 


000004 


3)47 


0«7613 


005009 


3346 


•07614 


10441) 


3149 






3350 






3351 






3)53 






3)9) 






3)94 






3)99 






3)96 






3)57 






3)56 


007616 


104431 


3)59 






3)60 


007630 


013701 


3)61 


007634 


013700 


3)63 


0076)0 


01)703 



171973 



001163 
171960 



000014 
000004 



BEO 

CLR 
MOV 
ERROR 



INC 

INC 

CMPB 

BNE 

«DD 

INC 
BNE 



et 

SRBOe 

•RKDirSREGl 
)7 



Rl 
R9 

«14,R9 
.*6 
14, RS 



I LESS THAN THAT SHOWN IN EXPCTO RKDA 
I CHECK THAT RKOB DOES COHTAIH A 
lAFTCA HRT BECAUSE LAST WORD WRITTEM 
IWAS SERIALLY SHIFTED OUT TO THE DISK 
iVEftr BKANCH 

ITHIS IS WHAT RKDB SHOULD CONTAIN 
I GET RR08 

I RKDB •HOULD BE AFTER HRT SINCE THE 
ILA8T MORD WRITTEN WAS SERIALLY SHIFTED 
I OUT or RKDB 

I INCREMENT DRIVE ADORS TO NXT SECTOR 
I 

|R U GOING TO CHECK THE LAST SECTOR? 
I IF HOT, BRANCH 

lIF YtS, INCREMENT R9 CORRECTLY TO 'EXPCTD RKDA 
I AFTER HAVING CHECKED THE LAST SECTOR 
I HAVE U FORMATTED ALL 13 BECTORST 
I IF ROT, BRANCH BACK 6 LOOP 
IIF YES, EXIT 



>!•»••« 

»«TE8T 



31 CHECK 'Read porhat'^cylinder 0, sector o«i) 

l«THIS TEST PERF0RN8 A RD FMT ON THE 13 SECTORS OF CYLINDER 
(•THE FOLLOHINC IS CHECKED 

1*1) IF CNTRL RDY SCI WITHIN A CERTAIN TINE OH COMPLETION 

l*OF THE FUNCTION 

»»3) IF 'HE' OR 'ERR' BIT SETT 

I*)) IF THE RKDA IHCRBNENTS CORRECTLY? 

|64} RKBA INCREHCNTBD CORRECTLY BY )0 (OCTAL) 

l»S) RKNC OVERFLOWED TO FROM -14 (OCTAL) 

116) CORRECT HEADER HAS RECEIVED FROM ALL 12 SECTORS. 

1*7) RKCS STILL C0HTAIN8 THE 'RO FMT' FUNCTION BITS. 

I*IF THERE IS A READ ERROR IN THIS TEST OR ANY 

(•OTHER TESTS THE USER SHOULD N4KE SURE THAT 

(•IT IS AN IRRECOVERABLE ERROR AHD MOT A TRANSIENT 

(•ONE. THIS CAN BE DONE BY LOOPING ON THE TEST 

(•IN QUESTION. USUALLY A TRANSIENT ERROR 

(•DISAPPEARS ON RETRIES, WHEREAS A LOGIC ERROR DOES NOT. 



t (••••< 

TST31I 



SCOPE 

CLR R5 

CNT, RESET 



00!))3 
177764 
001340 



MOV 
MOV 
MOV 



RKCSfRl 
1-14, R0 

RKD1>P3 



;G0> 00 CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
JBSSET' ROUTINE. A CONTROL RESET 15 
; ISSUED ANO AFTER A CERTAIN TIME 
(IF THE 'CNTRL RDY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CNT. RESET' IS LOCATED. 
(THIS IS A VERY BASIC ERR 6 IF IT 
(OCCURS GO BACK TO TEST 10 
(GO CHECK IF SIN IS SET 
IIS SFT, DO DRIVE RESET TO CLR IT 

(SET UP COUNT FOR 12 SECTORS 
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DCRKKO.PU J2-5I:P-76 MUT Kl CHECK 'REHO rORMAT'-CYtlNDER Br SECTOR B-U 



SeO 0063 



2363 


007634 


013712 


001350 


3364 


007640 


012704 


033340 


3365 


007644 


010477 


171466 


3366 


007690 


013777 


177764 


3367 


007656 


013777 


•03095 


2368 








3369 


007664 


105777 


171442 


3370 


007670 


100411 




3371 


007673 


005205 




3373 


00T674 


001373 




3373 








3374 


007676 


004737 


030703 


3175 


007792 


013737 


001350 


3376 


007710 


104416 




3377 








3378 


007712 


104045 




3379 








3380 








3381 








3383 








2383 


007714 


004737 


031142 


2384 








2J85 


007720 


104046 




2386 








23S7 








2388 








2389 


007722 


013705 


001350 


2393 


007726 


062705 


000020 


3391 








3393 


007732 


004737 


021176 


2393 








2394 


007736 


104040 




2 395 








2396 








2397 








2398 








2399 


007740 


023777 


033270 


3400 


007746 


001407 




34«ll 


007750 


0127J7 


033270 


2402 


0077S6 


017737 


171354 


2403 


007764 


104042 




2404 








2409 


007766 


004737 


021324 


2406 








2407 


007772 


104041 




3408 








3409 








3414 


007774 


005734 




341! 


007776 


001413 




2413 


010000 


010037 


00U62 


2413 


010004 


062737 


000014 


3414 


010012 


005037 


001164 


2415 


010016 


014437 


001166 


2416 


010032 


104043 




3417 








2418 


010024 


005724 





MOV 


DRIVAO,0lt3 


; ADDRESS THE DRIVE 


KOr 


t00TBUr«R4 


(ADRS to HHICH X'FER DATA FROH DSK 


NOV 


R4f fRKB* 


HOV 


••14r8RKHC 




MOV 


f3005r»RKC6 


rRCAD rORHATf CO 


TSTB 


•RRCS 


»0I0 CHTRL RDT SET OH COMPLETION? 


BMI 


36 


>TES. BRKHCH 


IHC 


RS 


|NOr WAIT FOR IT TO SET 


BNE 


It 


tir WAITED LONG ENOUGH REPORT 


lERRORt OTHERWISE LOOP BACK t HAIT 


J8R 


PC>CT4RG 


jGOt SET RKCSt CRr DStDA 


NOV 


DRITAOf8RG810 




BRiCDk4 




fdO TO 'BDA4* & BREAK CONTENTS OF 




;tREG10 INTO DRIfCTL.SURfSEC BITS 


ERROR 


45 


jCNTRL RDT DID HOT SET ON COMPLETION 
lOF READ FORMAT'OF CXLIHDER 0( 
{SECTORS 0"13 

*READ FHT WAS DONE STARTING AT <DSK"ADRES> 






> INDICATED IN EROR HESGE 

»CHECK IF 'ERR* OR 'HE' BIT IS SET. 

tIF YCS RETURN HERE. 


J8R 


PCfCHKHE 


ERROR 


46 


I'ERR' OR 'HE' BIT SET OH DOING 

;READ rMT-OF CJfLINDER 0; SEC 8»13 

;REAO fMT HAS DONE STARTING AT <DSK-AORES> 

tlNDJCATEO IN EROR MESGE 


HOV 


ORIVADfRS 




ADD 


i20«RS 


tRKOA SHOULD HAVE INCREHENTD TO (R2) 


JSR 


PCvCHROAl 


ICHECK IF RKDA IHCREHEHTEO CORRECTLY. 
(IF NOT> RETURN HERE. 


ERROR 


40 


>RKDA DID NOT INCREMENT BT 12 

r AFTER » 'RD FMT' OF 12 HEADERS OF 

ICXLIHDER 0. SECTORS 0-13 

IRKBA SHOULD INCREMENT BY 34 BYTES 

;AT THE END OF X-FER 


CHP 


IOOTBUr'f]0«0RKBA IDIO RKBA INCREHGNT CORRECTLY? 


BEO 


5* 


tTCS. BRANCH 


HOV 


iOUTBUr*30rtRCG0 (SET CXPCTD RKBA 


HOV 


»RKBA,IREG1 


rGET ACTUAL RKBA 


ERROR 


43 


(RKBA DID NOT INCREMENT CORRECTLY 
1 AFTER READ FORMAT OF 12 HEADERS 


JSR 


PCvCHKNC 


>G0 CHECK IF RKHC OVERFLOHED TO 
>IF NOT RETURN HERE. 


ERROR 


41 


;RKHC DID NOT OVERFLOW TO 
(AFTER 'RD FHT* OF 12 HEADERS 
lOF CYLINDER 


T8T 


(R4)« 


IHAS THE CORRECT HEADER RECIBVtDT 


BEO 


7( 


!TE8r BRANCH 


HOV 


R0>IReG0 


>GET SECTOR FOR WHICH THE HEADER 


ADD 


I14,(REQ9 


ICOULD NOT BE READ CORRECT 


CLR 


SREGl 


lEXPCTD HEADCR-0> FOR CYL 


MOV 


•(R4)«IRE02 


(GET WRONG HEADER RECVD 


ERROR 


43 


{HEADER HAS NOT READ RIGHT FOR 
(SECTOR (AS IN ER NSGE). & CYL 


T8T 


(R4)« 


(WAS THE CORRECT HEADER RECVD? 
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7|( 



24S9 


010026 


005303 


3430 


010030 


001361 


2431 






2422 


010032 


004737 


2473 






2424 


010036 


104036 


3425 






2426 


010040 


033711 


2427 


010044 


001406 


3428 


010046 


013737 


2429 


010054 


011137 


2430 


010060 


104034 


3431 






2433 






2433 






2434 






2435 






2436 






2437 






2438 






2439 






2440 






3441 






2442 






2443 






2444 






3145 






3446 






2447 






3448 






3449 






2450 






2451 






2452 






2453 






2454 






3455 


010062 


000004 


2456 


010064 


012737 


2457 






2458 


010072 


013703 


2459 


010076 


013701 


2460 


010103 


010105 


2461 


010104 


013704 


2462 


010110 


005737 


2463 


•10114 


001 405 


2464 






2465 






3466 


010116 


053701 


2467 


910123 


053705 


2468 


010136 


000403 


2169 


010130 


013702 


2470 


010134 


005205 


2471 






2472 


010136 


10441 3 


2473 






2474 







IHC 


Re 


(YES, HAVE U CHECKED FOR ALL 12 SECTORS? 


BNE 


61 


(IF NOT. LOOP BACK fc CHK HDR FRH NXT SECTR 


JSR 


PCCHKBR 


(CHECK IF ANY BIT IN RKER IS SET, 






(IF YES, RETURN HERE. 


ERROR 


36 


(RKER BIT SET ON DOING RD FMT 






(OF CYL 0, SECTORS 0«13 


CHP 


12304, fRl 


(DOES RKCS STILL CONTAIN FUNCTION BiTSY 


BEO 


TST33 


((YES, EXIT 


HOT 


•32»4,>REG0 


(GET EXPCTD RKCS 


HOV 


*R1. SREGl 


(GET ACTUAL RKCS 


ERROR 


24 


(RKCS DID HOI CONTAIN 'RO FMT* 






(FUNCTION BITS ON COMPETION OF 






(THE FUNCTION 



010136 001110 



( (•••••••«•••»••••••••••••»•••««••**»»••«••**»*••••»••«»•»•*«••«• 

(•TEST 22 CHECK 'READ', CYLINDER 0, SECTORS B TO 13 

(•THIS TEST PERFORMS A READ OF ALL THE SECTORS OF CYLINDER t> 

(•6 CHECKS THE FOLLOWING 

(•1) CNTRL ROY SETS WITHIN A CERTAIN TIME ON COMPLETION 

(»0F THE FOMCTIOIf 

1^2) IF 'HC' OR 'ERR' BIT S£T7 

(•3) IF THE CORRECT P81IED0-HEADER (FIRST WORD OF EVERY) 
(•SECTOR, WRITTEN IN A PREVIOUS TEST] WAS RECEIVED. 
(•4) IF RiCDS CONTAINS THE CORRECT WORD. 
(•4) IF RKOA INCREMENTED CORRECTLY. 

(•5) IF REST OF THE (377) WORDS IN EACH SECTOR ARE '0' , HOTE 

(•PREVIOUSLY ONE WORD HAS WRITTEN PER SECTOR. 

(•6) IF RKCS STILL CONTAINS THE 'READ* FUHCIION BITS 

(•7) IF CONTROL RESET CLEARS RKDB. 

(• ir TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECT0R(13} 
(•IS READ BECAUSE THE SIMULATOR CAN STORE ONLY 1 SECTOR (356 WORDS). 
(•HENCE ONLY THE DATA WRITTEN LAST CAN BE READ BACK. 
((••••••••••••••»**»»•«••««••••••«••••»•••••••»»•*««««««««««»,«.«, 

TST33I SCOPE 

HOV *ll,tLPERR (SET RETURN ADRE8 FOR LUPINC 

(ON ERROR (SW 9) 



MOV 
HOV 
MOV 
MOT 
TST 
BEO 



BIS 
BIS 



MOV 
IHC 



RKCS,R3 

DRtVAD,Rl 

R1,RS 

I0UTBUF,R4 

SINUL 

9t 



•13, Rl 
•30, RS 
U 

••14, R2 

R5 



(TESTING ON SIMULATOR? 
(HO, BRANCH 

(IF TESTING ON SIMULATOR READ 
(SECTOR 13 ONLY 
(SET BITS FOR SEC 13 

(RKDA SHOULD INCRMHT TO THIS AFTER READ 

(SET COUNT FOB 13 SECTORS 

(RKDA SHOULn INCREMENT TO 

(THIS SfTER 1 SECTOR READ 

(GO. DO CONTROL RESF.T 

(THIS IS A CALL FOP THE 'CNTRL- 

(BF.SET' ROUTINE. A CONTROL RESET IS 
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SCO 006* 



247S 














2476 














2477 














2478 














2479 
2480 














2481 














2483 


010140 


104421 






TST.tIN 




2483 














2484 


010143 


010177 


171172 




NOT 


RtrtRKDk 


24BS 


010146 


010477 


171164 




HOT 


R4t0RKBA 


2486 


010152 


012777 


177400 


171154 


HOT 


f •400>0RKHC 




010160 


012713 


000005 




NOV 


tSr0R3 


2480 














2489 


010164 


005000 






CLR 


R0 


3490 


010166 


105713 




381 


T8T0 


•r3 


2491 


010170 


100410 






BHI 


3( 


2492 


010172 


005300 






INC 


P0 


3493 


010174 


001374 






BNE 


2( 


2494 














2495 


010176 


004737 


020702 




JSR 


PC«CT4RG 


2496 


010202 


010137 


001202 




NOV 


Rlf (RECIB 


2497 


010306 


104416 






BRK0ft4 




2498 














3499 


010210 


104045 






ERROR 


45 


2S00 














2S01 














2S02 














2503 














2504 


010313 


004737 


021134 


311 


JSR 


PCfCHKHBl 


2505 














2506 


010216 


104046 






ERROR 


46 


2507 














2500 














2509 














2510 














251 1 


010220 


020114 




4(1 


CNP 


Rlr(R4} 


2513 














2513 














2514 














2515 


010233 


001407 






BEQ 


5( 


3516 


010224 


010137 


001162 




NOV 


Rl>tReG0 


2517 


010230 


011437 


001164 




NOV 


(R4}>(REC1 


2518 


010234 


010137 


001166 




NOV 


Rl,(REa2 


2519 


010340 


104044 






ERROR 


44 


2520 














2521 














2522 


010343 


004737 


021176 


5(1 


JSR 


PCvCHKDAt 


2533 














2534 


010346 


104040 






ERROR 


40 


2525 














2536 














3537 














3531 














3539 














3530 















I ISSUED AMD AfTER A CERTAIN TINE 
lir THE 'CNTRL ROY* DOES NOT SET 
IAN ERROR IS REPORTED. NOTE THAT 
ITHE PC IN ERROR MESSAGE IS THE 
IPC WHERE 'CNT, RESET' IS LOCATED. 
;THIS IS A VERT BASIC ERR 6 IF IT 
fOCCORS GO BACK TO TEST 10 
»80 CHECK ir SIN IS SET 
>ir SET. DO DRIVE RESET TO CLP IT 
; ADDRESS THE DRIVE 

fAORS TO HHICH X>FER DATA FROM DISK 

ISETUP NORD COUNT 

>READr0O 



(DID CHTRL RDT SET OH CONPETION? 

;yES» BRANCH 

;N0> WAIT FOR IT TO SET 

;IF WAITED LONG ENOUGH. REPORT 

f ERROR* OTHERHISE LOOP SAK 6 NAIT 

>60* GET RKCS. ER, DSfOA 

I GET SECTOR ADORES WHERE ERROR OCCURED 

|Q0 TO 'BDA4' 6 BREAK CONTENTS OF 

t(ReOt0 INTO DR I.CYL.SUR.SEC BITS 

ICNTRL RDT DID HOT SET ON CONPLETION 

lOP READ OF CTLIHDER 0< SECTOR 

I AS SHOWN IN <DSK>ADRES> 

I READ HAS DONE STARTING AT <DSK-ADRES> 

I INDICATED IR EROR NESGE 

(CHECK ir 'ERR' OR 'HE' BIT IS SET, 

rIF XES RETURN HERB. 

I HE OR ERR BIT SET 

ION 'READ' OF CTLIHDER 0. SECTOR 

;as shown in <DSK»ADRES> 

(READ HAS DONE STARTING AT <DSK-AORES> 

(INDICATED IN BROR NESGE 

(HAS THE DATA WORD RBCVO. CORRECT? 

(THE FIRST DATA NORD OF EACH SECTOR 

(IS AN ADRS WORD C0NRISIN6 OF DRIVE NO, 

(CVLINOER AORS. SUR. SECTOR ADRS 

(GET BKPCTO DATA WORD FROM DISK 
(GET THE DATA WORD RECVD 
(GET DISK ADRES 

(DID HOT RECIEVE CORRECT DATA WORD ON 

(READ, OF CYLINDER 0. SECTOR AS SHOWN IN 'DSK 

(A0RE8' OF EXPCTD DATA WORD 

(CHECK IF RKDA INCREMENTED CORRECTLY, 

(IF NOT RETURN HERE. 

I RKDA DID NOT INCREMENT CORRECTLY 

(AFTER READ OF 1 WORD, PROM CYL 

(SEC IN ERROR IS 1 LESS THAN THAT 

(SHOWN IN EXPCTD RKDA 

IAS A RESULT OP 'WRT FMT' IN A PREVIOUS TEST 
(FIRST WORD OF EVERT SECTOR IS NON- 
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3531 
















25)2 
















3513 
















3534 
















2535 


010250 


012737 


177775 


001)70 




NOV 


I-3.EFL01 


25)6 


010256 


012700 


0)3343 






MOV 


IOUTBOF«a,R0 


25)7 


010363 


012737 


177401 


001363 




NOV 


#•377, COUNT 


25)8 


010370 


005710 






nil 


TST 


•R0 


25)9 


010373 


•01005 








BNE 


138 


2540 


010374 


005720 








TST 


(RB} + 


2541 


010376 


005237 


001363 






INC 


COUNT 


2542 


010303 


001372 








BNE 


111 


254) 


010304 


000412 








BR 


7( 


2544 


010306 


005037 


001163 




1211 


CLR 


IREG0 


2545 


010313 


012037 


001164 






NOV 


(R0}+,(REO1 


2S46 


010316 


010137 


001166 






MOV 


R1,IRB03 


2547 
















2548 


010333 


104044 








ERROR 


44 


2549 
















2550 
















2551 
















2552 
















2553 
















2554 
















2555 
















2556 


010324 


005237 


001370 






INC 


EFLGl 


2557 


010330 


001357 








BNE 


IK 


3558 
















2559 
















7560 


010333 


•057J7 


001344 




711 


TST 


SIMUL 


2561 


010336 


•01011 








RNE 


108 


2562 
















256) 
















2564 


010340 


00S301 








INC 


Rl 


2565 


810)43 


005305 








INC 


R5 


2566 


010344 


133705 


000014 






CMPB 


114, RS 


2567 


010350 


001002 








BNE 


.*6 


2568 


010352 


062705 


000004 






ADD 


14, R5 


256') 
















2S7H 


010356 


005203 








INC 


R3 


2571 


010)60 


001366 








BNE 


11 


2573 














257) 


010362 


022713 


000304 




10(1 


CMP 


1304. (R3 


2574 


010366 


001406 








BEO 


81 


2575 


010370 


012737 


000304 


001163 




MOV 


f204.(REG0 


2576 


010376 


011)37 


001164 






MOV 


•R3,IREG1 


2577 


010403 


104024 








ERROR 


34 


2578 
















2579 


010404 


lid44tJ 






Bll 


CNT, RESET 


2580 
















7581 
















251)3 
















25q) 
















2584 
















2585 
















25a& 

















lEERO (PSUEDO-HOP), REST 377 WORDS 
(ARE ALL B'S. 

ICHECK IF THE REST OP THE 377 

(WORDS ARE ALL 0'S 

lALLOH ONLY 3 ERRORS 

UNITIALIZE PTR TO 2ND WRO IN BUFH 

ICHBCK 377 WORDS IN THE BUFFER 

(IS THIS NRD 07 

(HO. ERROR 

lINCRNNT PTR TO NXT WRD 
ICHKD ALL 377 WRDS7 

(YES, BRANCH 
iGET EXPCTD WORD 
iOtJ WORD RECVD 

(GET DISK AORBS, ERROR IN THIS 
( SECTOR 

(DATA ERROR. THE LAST 377 WORDS 
(READ FROM tACH SECTOR SHOULD BE 
(IN A PREVIOUS TEST. FIRST WORD OF 
(tVERY SEC (CYL 0) HAS NRITTEN AS A 
(PSUEDO>HDR, REST OF THE WORDS IN THE 
iSECTR ARB AUTOMATICALLY NRITTEN AS 
|0'S, THIS ERROR MAY NEAR THAT IT 
(DIDN'T HAPPEN 60 

(ALLOW ONLY 3 DATA BRORS OP THIS KIND 



tTBSTING ON SIHULATORT 
lYES BRANCH 

IIP NOT TESTING ON SIMULATOR GO AHEAD 
) & READ ALL 13 SECTORS ON CYL 
(INCREMENT DRIV>ftORES TO NXT SECTOR 
IINCREHBNT 'EXPCTD DRIV-AORES' 
IR U GOING TO READ THE LAST SECTOR? 
(IF NOT, BRANCH 

(IF YBS. INCREMENT 'BXPCTD RKDA' 
(CORRECTLY 

(HAVE U READ ALL 13 SECTORS? 
(IF NOT LOOP BACK t READ THE 
(NXT SECTOR 

(DOES RKCS, STILL HAVE THE 'READ' FUNCTION 
(YES, BRANCH 
(GET EXPCTD RKCS 
(GET RKCS RECVD 

(RKCS SHOULD STILL CONTAIN THE 'READ' 

(FUNCTION BITS 

(60 ,00 CONTROL RESET 

(THIS IS A CALL FOR THE 'CNTRL- 

(RESET' ROUTINE. A CONTROL RESET IS 

(ISSUED AND AFTER A CERTAIN TIME 

lir IHE 'CNTRL ROY* DOES NOT SET 

?»N ERROR IS REPORTED. NOTE THAT 

ITHE PC IN ERROR MESSAGE IS THE 

IPC WHERE 'CST. RESET' IS LOCATED. 
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sea 0066 



2587 
2S8a 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
3606 
3607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2630 
3631 
2623 
2623 



2636 
2637 
2638 
2639 
2640 
2641 
2642 



010406 005777 170710 

010412 001407 

010414 013737 001342 001162 

010423 017737 170714 001164 

010430 104102 



2634 


010433 


000004 




TST23I 


SCOPE 




2635 


010434 


013737 


000001 


001206 


NOV 


•IflTIHES 


3636 


010442 


H13737 


010473 


001110 


NOV 


f 1I>$[.PEPR 


3637 














2638 


010450 


005003 






CLR 


R3 


2639 














3630 


010452 


013704 


177465 




HOV 




3631 


010456 


012703 


177764 




NOV 


i>14,R2 


36)3 


010462 


013701 


0I?1)S0 




HOV 


DRtVUDf Rl 


2633 


010466 


0iai0S 






HOT 


R1,P5 


2614 


010470 


005305 






IMC 


R5 


2635 


010472 


104413 




l«l 


CNT.RCICT 



jTHIS IS A VERX BASIC ERR IF IT 
I OCCURS GO BACK TO TEST 10 
1ST •RKOB IDID CMTRIi RESET CLEAR RKOB? 

BEQ IST23 MlfESf EXIT 

HOV RKDB.IREGB >GEI AORES OF RKOB 

HOV •RKDB,»RE61 >GBT CONTENTS Of RKDB 

ERROR 102 iCOBTROt. RESET DID NOT 

ICLEAR RKOB 

,,••••••••♦••••••••••••♦*•♦•••••♦•••••••••••••**•••*•••*•*•••*••• 

{•TEST 23 CHECK 'MRITE COIlHAr' OF THE DISK 

|»THI» TEST HRIIE FORHATI THE ENTIRE DISK. THE FIRST 

(•WORD OF EVER! SECTOR U HRIITEH TO BE A P80ED0-HEWEP 

(•CONSISTING or THE DRl»t *, CYLINDER t, SURFACE SECTOR ». 

>»1 SECTOR IS HRITTEH At A TINE. THE WRITING 15 DONE 

fin THIS OROERl CYL 0-8OR 0| CYL B-SUR It CYL 1-SOR 

f'CYt 1-SUR 11 CYL a-SUR 0| CYL 2-SUR 1—— CYL 112-SUR 1. 

J •IMPORTANCE OF THIS TEST SHOOLD BE REALIZED, THIS IS 

I»THE FIRST tIHE EACH fc EVERY SECTOR ON THE OlSK IS 

I«ACCE3SeO ( WRITTEN ON. THIS IS THE FIRST TIKE RKOA 

»»IS BEING HADE TO INCREMENT OVER THE ENTIRE DISK (FROH 

;*000000 TO 0145301 ir A 'SIN' OCCURS AT ANY POINT 

|»A DRIVE RESET IS DONE BEFORE DOING NRT FMT FOR THE NEXT 

r •SECTOR, AHY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET. 

{•THE FOLLOWING CHECKING IS DONE AFTER WRITING EACH 

{•CYLINDER. 

{•1. CHTBL ROY SETS WITHIN A CERTAIN TIHE ON COMPLETION 

I •OF THE FUNCTION. 

{♦2. IF 'SIN' OCCURRED? 

!•). IF 'HE* OR 'ERR* BIT SET? 

{•4, If RKOA INCREHEHTBO CORRECTLY, INCLUDING BOUNDARY 
{•CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE. 
{•SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END 
{•OF THIS POINTERS ARE INCREMENTED ADJUSTED, ETC. 
{•& *WRT FMT' ON THE NEXT SECTOR IS DONE. 
J ;#•»»♦»»•»••••»•••••»•»•••••♦••••••••»♦•»•••••»••»»•••••♦•*••»•• 

{{DO 1 ITERATION 
{SET RETURN AOPES FOR LUPING 
{ON ERROR (SW 9) 
;(R3)a0, SURFACE BEING WRITTEN 
;(R3)-1, SURFACE 1 BEING WRITTEN 
{SET UP COUNT FOR 20 3 CYLINDERS 
{SET OP COUNT FOR 12 SECTORS 
{GET DRIVE ADRES 
{STORE IT 

{GO, 00 CONTROL RESET 
{THIS IS A CALL FOR THE 'CHTRL- 
{ RESET' ROUTINE. A CONTROL RESET IS 
{ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL RDY' DOES NOT SET 
{AN ERROR IS REPORTED. NOTE THAT 
{THE PC IN ERROR MESSAGE IS THE 
{PC WHERE 'CNTtPESET' IS LOCATED. 
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2643 








3644 








3645 


010474 


104421 




3646 








2647 


010476 


005037 


001362 


2648 


010503 


0101)7 


033240 


2649 








3650 








3651 








3653 


010506 


012777 


033240 


3653 


010514 


012777 


177777 


2654 


010S33 


010177 


170612 


3655 








2656 


010526 


012777 


002003 


2657 








2658 


010534 


105777 


170572 


2659 


010540 


100411 




2660 


010543 


005237 


001362 


2661 


010546 


001372 




2662 








3663 


010550 


004737 


020702 


2664 


010554 


010137 


001203 


2665 


010560 


104416 




2666 








2667 


010562 


104031 




2668 








3669 








2670 








3671 








2672 


010564 


032777 


001000 


367) 


010572 


001405 




3674 


010574 


004737 


020710 


2675 


010600 


0101)7 


001170 


3676 


010604 


104001 




3677 








3678 








3679 


010606 


004737 


0211)4 


3680 








3681 


010612 


104032 




3683 








3683 








2684 








3685 








3686 


010614 


004737 


021176 


2687 






2688 


•10620 


10403) 




2689 








2690 








2691 








2692 


010622 


005201 




369) 


010634 


005205 




36^4 


010636 


023703 


177776 


2695 








2696 


010633 


0010M2 




2697 


010634 


062705 


000004 


2698 


010640 


005202 





170612 



170576 



1000 170534 3I( 



CLR 
MOV 



MOV 

TSTS 

BMI 
INC 
BNE 



BIT 
BEO 
JSR 
HOV 
ERROR 



INC 
INC 
CMP 

BNE 
ADD 
INC 



COUNT 
RlrOUTBOF 



HOV lOUTBUFfllRKBA 
NOV t>l,IIRKNC 
MOV R1,8RKDA 



f 2t03,9RKCS 

8RKCS 
3S 

COONT 
28 



JSR PC,GT4R8 
MOV Rt,8REG10 
BRK0k4 



11000, 8RRDS 
48 

PC,6T3R6 
R1,8REG) 
1 



JSR PC>CHKHEl 
ERROR 32 



JSR PCCHKOAl 
ERROR )) 



Rl 
RS 

l«2,R3 



THIS IS A VERY BASIC ERR & IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK IF SIN IS SET 

IF SET, 00 DRIVE RESET TO CLR IT 

THIS WORD TO BE WRITTEN. THE FIRST 
WORD OF EACH SECTOR WILL BE THE ACTUAL 
OISK>AORES, CONSISTING OF THE DRIVE NO, 
CYL ADRES, SURFACE BIT SECTOR ADRES 
ADRES FROM WHICH WORD IS TO B X-FEPREO 
SET UP WORD COUNT 

ADRES THE DRIVE, WITH CORRECT CYL 
& SECTOR ADRES 
WRITE FORMAT, GO 

DID CNTRL RDY SET 
YCS, BRANCH 

NO, HAVE U WAITED LONG ENOUGH? 

IF HOT, LOOP BACK t WAIT 

IF YES, REPORT ERROR 

CO, GET RKCS, ER, DS,DA 

GET DISK ADRES, WHERE ERROR OCCUREp 

GO TO 'B0A4' 6 BREAK CONTENTS OF 

tREG10 INTO OR l,CyL,SUR,SEC BITS 

CNTRL RDY DID NOT SET ON COMPLETION 

OF 'WRITE FORMAT', ON SECTOR AS 

SHOWN IN <DSK-AOREB> 

NRT FMT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MSGE. 
DID SIN BIT SETT 
NO, BRANCH 

GO, GET RKCS, BR, DS 

GET, DISK-ADRE4 WHERE ERROR OCCURED 

SIN SET WHILE qOING WRT FMT 

TO DISK>ADRES (AS IN $REG3) 

CHECK IF 'ERR' OB 'HE' BIT IS SET 

IF YES, RETURN HERE. 

HE OR ERR SET WHILE DOING WRITE 

FORMAT ON SECTOR AS INDICATED IN 

<DSK-ADRES> 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

CHECK IF RKDA INCREMENTED CORRECTLY, 

IF NOT, RETURN HERE, 

RKDA DID NOT INCREMENT CORRECTLY 

AFTER 'WRITE FORMAT' WAS DONE 

TO THE SECTOR PREVIOUS TO THAT 

INDICATED IN 'EXPCTD* RKDA 

INCREMENT TO THE NXT SECTOR 

INCREMENT R5, TO WHAT RKDA WILL INCREMENT 

R U GOING TO FORMAT THE LAST SECTOR 

IN THE CYLINDER 7 

IP NOT, BRANCH 

INCREMENT R5 CORRECTLY TO 'EXPCTD RKDA' 
HAVE U FORMATTED ALL 13 SECTORS 
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SEQ 



3700 


010642 


001311 




BHC 


11 


2701 












3703 






177764 






3703 


010644 


012703 


NOV 


l<14>R3 


3704 


010650 


043701 


000037 


BIC 


*37,R1 


370S 


010654 


005703 




TSt 


R3 


2706 


010656 


00 1006 




BNE 


e« 


3707 


010660 


005303 




INC 


R3 


3708 


010663 


063701 


000030 


kOD 


•30>R1 


2709 


010666 


010105 




MOV 


Rl >R9 


2710 


010670 


005305 




INC 


R5 


2711 


010672 


000677 






1$ 


2713 


010674 


063701 


000040 


8( i ADD 


•40, Rl 


271 J 


010700 


010105 




HOV 


R1>R9 


2714 


01070} 


005305 




IHC 


R5 


2715 


010704 


005003 




CLR 


ft3 


2716 


010706 


005304 




IHC 


R4 


2717 


010710 


001370 




BHE 


11 



3718 
3719 
3730 
3721 
3722 
3723 
2724 
27 25 
2726 
2727 
2728 
2739 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
3737 
2738 
2739 
2740 



2741 


010713 


000004 




TST34I 


SCOPE 




2742 


010714 


013737 


000001 


001306 


NOV 


f IrlllHES 


2743 


010733 


013737 


011006 


001110 


NOV 


llt.lLPERR 


2744 














2745 


010730 


005037 


001356 




CUR 


INOXl 


2746 














2747 


010734 


013701 


001350 




HOV 


DRIfADiRl 


2718 


010740 


010103 






MOV 


R1>R2 


2749 


010743 


0057J7 


001344 




ISI 


■IHUL 


2710 


910746 


001410 






BEO 


13* 


2751 


010750 


053701 


014533 




BIS 


f 14«I3fRt 


2752 














2753 














2754 


010754 


05370] 


014540 




BIS 


•14540, Rl 



ION THIS CTLINDER 

Jir NOT, LOOP SACK 6 rORNUT THE 

I NEXT SECTOR 

I YES 

I RESET THE COUNT TOR 13 SECTORS 
lCl.e»R THE SEC »DRES §118 
I SURFACE It 
>TC3, SRftllCN 
I NO, SET FLAG 

jmCREMBllI TO THE NXT SURFACE 
I THIS IS VHAT RKOA SHOULD 
;I*CREHeNT TO. 
;00, DO MXT SURFACE 
jINCREHEHT TO NXT CYL 
> POSITION FOR 
lEXPCTD RKDA 

IHAVE U FOPNATTED ALt* 203 CtLINDEBS 
J IF NOT, LOOP BACK ( FORdAT THE 
INEXT CYLINDER 



J I •♦»»••«»••••♦«»••••••••♦•••••♦»•»••••»•♦•*••»•••*••»•*♦•••••••* 

;»TEST 24 C«EC* 'READ FORMAT' FOR THE ENTIRE DISK 

(•THIS TEST READ FORMATS THE ENTRE DISK, WHICH HAS NRT 
(•FORMATTED IN THE PREVIOUS TEST, THE FOLLOHING CHECKING 
{•IS DONE 

»»1, CNIRL RDY SETS NITUIN A CERTAIN TIME ON COMPLETION 

f»OF FOHCIIOM 

|»2. IF 'SIH* OCCORREDT 

|»3, IF 'HE' OR 'ERR' OCCURRED* 

r»4. RKDA trtCREHEMTED CORRECTLY, 

1*5. IF THE CORRECT HEADER HAS READ. 

1*6. IF RRHC OVERFLOWED CORRECTLY. 

1*12 SECTORS (1 CYLINDER) ARE READ AT A TIME, IF 'SIN' 

(•OCCURS A DRIVE RESET tS DONE BEFORE READING THE NEXT 

(•SECTOR. RCAOIHG IS DONE IN THIS ORDER CYL 0-SUR 0( 

(•CYt, 0-8US 1( CYL 1-SUi 01 CYL l-SUP 1( CYL 3-5UR 01 

(•CYL 3«8UR 1(— — CYL tl3«SUR 1. IF TESTING ON SIMULATOR, ONLY 

(•THE LAST CYLINDER (312), LAST SECTOR (13), SURFACE 1 IS READ, 



((DO 1 ITERATION 
(SET RETURN ADRES FOR LUPING 
(ON ERROR (SH 9) 

)INDX1«0, SURFACE BEING READ 
;INDXl>t, SURFACE 1 BEING READ 
:GET DRIVE AORES 

(TESTING ON SIHULATORf 
(NO, BRANCH 

(SET BITS FOR CYL 312, SEC 13, SUR 1 
(ON SIMULATOR, CHECK ONLY CYL 312, 
(SECTOR 13, SURFACE 1 
IRKOA SHOULD IHCBMNT TO THIS »FTP 
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2755 








2756 


010760 


012737 


n777T 


2757 








2758 


010766 


00DI407 




2754 


010770 


012705 


177465 


2760 


010774 


012737 


177764 


2761 








2762 


011003 


062702 


000020 


2763 








2764 


011006 


104413 




2765 








2766 








2767 








2768 








2769 








3770 








3771 








3772 








2773 








2771 








2775 


011010 


104421 




2776 








2777 








3778 


011012 


012703 


033240 


2779 


011016 


005037 


001360 


3780 


011032 


010377 


170310 


3781 








2783 


011026 


013777 


0O137f 


2783 








2784 








2785 


011034 


010177 


170300 


2786 








2787 


011040 


013777 


003005 


3788 








3789 


011046 


1B5777 


170260 


3790 


011052 


100411 




2791 


011054 


005337 


001360 


3792 


011060 


001373 




3793 








3794 


011062 


004737 


020702 


3795 


01 1066 


010137 


001202 


3796 






2797 


011072 


104416 




3798 








3799 
2890 


011074 


104045 




2801 








2803 








2803 








3804 








2805 








3896 


011076 


032777 


HB10i]fl 


2807 


011104 


00141*5 




7938 


011106 


fl(»47J7 


0207|i) 


2809 


011112 


ami 37 


001170 


3810 









• •WEFLGl 



It 



MOV •.313,RS 
MOV ••14,GFL01 



ADO 130, R3 

CNT. RESET 



TST, SIN 



HOV 

CLR 
MOV 



HOV 

HOV 

T6TB 
BMI 
INC 
BNE 

JSR 
MOV 

BRRDA4 
ERROR 



BIT 
BFO 
JSR 
MOV 



•0UtBUF,R3 

INDX2 

R3«»RKBA 

CFLG1,*RKHC 



R1,»RKDA 

•2005.IRKCS 

8RKC8 
31 

tN0X3 
2t 

PC,GI4RS 
Rl,tREG10 



• 1000,|iRKDS 
4( 

PCGTJBG 
Rl, JRFGI 



(RD FMT OF 1 SECTOR 

(SET COUNT FOR READING HOR 

(FROM 1 SECTOR ONLY 

(SET UP COUNT FOR 203 CYLINDERS 

(SET COUNT FOP 13 HDR3 TO BE 

(READ FROM EACH CYLINDER 

(THIS IS WHAT RKDA SHOULD INCREMENT 

(BY, AFTER 'RD FMT' OF EACH CYLINDER 

(CO, 00 CONTROL RESET 

(THIS IS A CALL FOR THE 'CHIRL- 

1 RESET' ROUTINE. A CONTROL RESET IS 

(ISSUED AND AFTER A CERTAIN TIME 

(IF THE *CNTRL RDY' DOES NOT SET 

(AN ERROR IS REPORTED. NOTE THAT 

(THE PC IN ERROR MESSAGE IS THE 

;PC HHERE 'CMT, RESET' 18 LOCATED. 

(THIS IS A VERY BASIC ERR 6 IF IT 

(OCCURS GO BACK TO TEST 10 

•.CHECK IF SIN IS SET 

;IF SET 00 DRV-RESET TO CLR II 

(STORE AORES OF BUFFER 

(AORES TO tlHtCH DATA IS TO BE X-FERREO 
(FROM THE DISK 

(SET UP HOPD COUNT FOR 13 HEADERS 

(TO BE READ OFF EACH CYLINDER 

((ONLY 1 FOR SIMULATOR) 

; AORES THE DRIVE HITH CORRECT 

(CYLINDER & SECTOR ADRES 

(READ FORMAT, GO 

(DID CNTRl RDY SET? 
(YFS, BRANCH 

(NO, HAVE U WAITED LONG ENOUGH? 
(IF NOT, LOOP BACK ( WAIT FOR II 
(IF YES, REPORT ERROR 
(GO, GET RKCS, ER, OS, DA 
(GET DRIV-ADPES STARTING WHICH 
('READ FORMAT' HAS DONE 
(GO TO 'BDA4' 6 BREAK CONTENTS OF 
(tREClO INTO OR i, CYL, SUR, SEC BITS 
(CNTRL RDY DID NOT SET AFTER 
(READ FORMAT, 'RKOA' IN EROR MS6E 
(GIVES THE CONTENTS OF RKDA AT THE 
(TIME OF ERROR, 

(READ FMT WAS DONE STARTING AT <DSK-ADPES> 
(INDICATED IN EROR MSGE. 

(DID 'SIN' SET? 

(NO, flRANCH 

■GO, GET RKCS, CP, OS 

(GET DISK-ADRFS WHERE 'SIN' 

;OCC!!PEn 
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2811 


011116 


104001 








ERROR 


1 


2812 
















2813 














PCrCHKHEi 


2814 


•11120 


004737 


021134 






JSR 


2815 
















2816 


01U34 


104046 








ERROR 


46 


28]7 
















2818 
















2819 
















2820 
2621 


01 1 126 


020277 


17020b 




StI 


CMP 


R2>0RKOA 


2622 


0111 32 


001410 








BCO 


6( 


2823 


011134 




001202 








R2« IREQ10 


2624 


011140 


104415 








BRKDA0 




282S 
2826 


011142 


__ 

017737 


17 


001 202 








2627 


01 1 1S0 


104416 












2828 














40 


2829 


011152 


1 V*lV^V 








_____ 
ERROR 


2930 
















2631 
















2832 
















2833 


01113 


01 3700 


001 370 






MOV 


EFLOl 1 R0 


2834 














Rl r R4 


2835 


011160 


010104 








MOV 


2636 


01 1 162 


042704 


160(<37 






BIC 


lie0037>R4 


2637 


a<! I7a 


02041 3 










R4r CR3) 


2638 












Bro 


68 


2639 


nil 179 
^; J* * 


010437 


001 164 






■nv 


R4> IRBGl 


2840 


01 1 176 




00 1166 










2641 


011202 


010037 








MOV 


R0f (RCG0 


2642 


011206 


062737 


0000 1 4 






ADD 


tl4rtRE(i0 


28 43 
















''*f 


ni 1914 


104043 








ERROR 


43 


J„ * 
















2646 
















2647 


01 1216 


005723 






811 


TST 




2848 


















01 1220 


005200 








INC 


R0 


2850 


01 1222 


001 361 








BNC 


71 


2651 
















2852 
















2853 


01 1224 


004737 


021224 






JSR 


PCfCHKWC 


Ifl« 


















01 1 230 


104041 








ERROR 


4} 


2656 
















2857 
















2856 
















2859 


011232 


005737 


001344 




911 


TST 


SIHDI. 


2660 


011236 


001031 








BHE 


T8t25 


2861 
















2662 


011243 


005737 


001356 






TST 


INOXl 


2663 


911244 


001011 








BNE 


10f 


2664 


011246 


005237 


001356 






IMC 


INDXl 


2865 


011252 


062701 


000020 






ADO 


l20rRl 


2366 


011256 


010102 








MOV 


R1.R2 



fSIN ERROR OH DOING RD THt 
ITO CYL INDICATED IN IRCG3 

»CHECK IF 'ERR' OR 'HE* BIT IS SETt 

I IF tES, RETURN HERE. 

>HE OR ERR WHII.e DOING A READ 

irOHHAT. 'RKDA' IN EROR HSGE GIVES 

;THE CONTENTS OF RRO» AT THE TIME Of ERROR 

;READ FHT HAS DONE STARTING AT <DSK-ADRE6> 

INDICATED IN BROR HESGE 

IDID RKDA INCREMENT CORRECTLY BY 12 SEC 

;aET EXPCTD RKDA 

;G0 TO •BD»0' ( BREAK CONTENTS OF 
;IREG10 INTO OR tfCTLtSURtSEC BITS 
(GET RECVD ROKA 

1 60 TO 'BDA4' t BREAK CONTENTS OF 
ttREOlB INTO DR • rCTLt S0R«5EC BITS 
fRKDA DID NOT INCREMENT BY 12 SECTORS 
(AFTER RD FMT HAS DONE. ADRES 
>0F CYLINDER IH ERROR CAN BE OBTAINED 
JFROM 'EXPCTD* RDDA 

I SET DP COUNT FOR 12 HEADERS TO B CHKD 
tCONLX Ir IF SIMULATOR) 

;GET DRIV-AORES FROM HHCRE RDFHT HAS DONE 
;GET THE CYLINDER ADRES ONLY. (HEADER) 
lis THE RECVD HEADER SAME AS EXPCTD7 

;GET EXPCTD HEADER WORD 
>GET HEADER HORO RECVD 

><3ET THE SECTOR (OCTAL NO) NHICH DID 

J NOT GIVE THE CORRECT HEADER 

JOID NOT RECIEVE THE CORRECT HEADER 

JHORD FROM 'SECTOR' AS INDICATED 

!(NOTE SECTOR ♦ IS OCTAL) 

S INCREMENT POINTER TO THE NXT WORD 

J IN MEMORY WHERE THE RECVD HDB IS STORED 

>HAVC U CHECKED ALL 12 HEADERS? 

!IF NOTr LOOP BACK 6 CHK THE NXT. 

»¥ES, ALL HEADERS FOR THIS CYLINDER 

(CHECKED. 

»CHECi( IF RKWC OVERFLOWED TO 0, IF 
INOT RETURN HERE. 

IRKHC DID NOT OVERFLOW AFTER DOING 
tROFMT OP 12 SECTORS ON THE CYLINDER 
SNOTE THAT 'RKDA' IS THE INCREMENTED 
IRKDA AFTER THE RDFMT 
ITSTING ON SIMULATOR? 
MlF YES, EXIT 

;N0 

.-DOING SURFACE 1 
TTES. BRANCH 

;N0 

(INCREMENT ORIV ADRES TO THE NXT SURFACE 
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7867 


011260 


062702 


000020 


2868 








2864 


011264 


000137 


011006 


2870 


011270 


005037 


001356 


7671 


011274 


042701 


000037 


2872 


011300 


062701 


000040 


2873 


011304 


010102 




2674 


011306 


062702 


000020 


2B75 


011312 


005205 




2876 


011314 


001402 




2877 


011316 


000137 


011006 


2678 








2879 








2860 








2681 








2662 








2683 








2664 








2865 








2886 








2887 








2688 








2899 








2690 








2691 








2892 








2893 








2694 








2695 








2896 








2697 








2698 








2999 








2900 








2901 








2902 








2903 








2904 


011322 


••0004 




2905 


•11324 


•12737 


000001 


2906 


011332 


•12737 


011376 


2907 








2908 


011340 


012703 


033240 


2909 


011344 


005004 




2910 








2911 


011346 


013701 


001350 


2912 


011352 


005737 


0ei344 


2913 


■11356 


001403 




2914 


011360 


•52701 


014533 


2915 


011364 


000404 




2916 


011366 


012700 


177764 


29J7 


011372 


•12705 


177465 


2918 








2919 


011376 


104413 




2920 








2921 








2922 









ADD 


I20|R2 


(THIS IS WHAT RKDA SHOULD INCREMENT 
(TO, AFTER READ FMT OF THE CYLINDER 


JMP 


11 


(GO RD FMT THE NXT SURFACE 


CLR 


INDXl 


( 


BIC 


#37, Rl 


(CLR SEC, SURFACE BITS 


ADD 


140, Rl 


(INCREMENT TO NXT CYL 


MOV 


R1,R2 


(THIS IS WHAT RKDA SHOULD BE 


ADD 


*20,R2 


(AFTER RD FHT OP CYLINDER 


INC 


R5 


(HAVE U DONE ALL CYLINDERS? 


BEO 


T8T25 


((EXIT 


JIP 


It 


(IF NOT, LOOP BACK 6 READ FMT FROM 



(THE NXT CYLINDER 



( I »••••••••••••«»•*•«•*•••*••«••••«•••••••••«••••••««••»•«« »••••• 

(•TEST 25 CHECK 'READ* OF THE ENTIRE DISK 

(•READ OF THE ENTIRE DISK (ONE HORD PER SECTOR) IS DONE 
(•IN THIS TEST. IN A PREVIOUS TEST THE FIRST WORD OF 
(•EVERY SECTOR HAS WRITTEN LIKE A PSUEDO>HEADBR (DRIVE t, 
(•CYLINDER t, SURFACE t SECTOR 1). THESE PSUEDO HEADERS 
(•WILL BE READ 6 CHECKED IN THIS TEST, PROVING THAT ANY 
(•SECTOR CAN BE ACCESSED AND READ. 
(•THE POLLOHINC CHECKING IS DONE 

(•1. CNTRL RSY SETS WITHIN A CERTAIN TINE ON COMPLETION 

(•OF FUNCTION. 

(•2. IF 'SIN' OCCURRED? 

(•3. IF 'HE' OR 'ERR' OCCURRED? 

(•4. THE CORRECT FIRST WORD FROM EVERY SECTOR 

(•WAS RECEIVED. THIS WORD REFLECTS THE ABSOLUTE 

(•DISK ADDRESS (DRV f. CYL (, SUR, SECt) OF THAT SECTOR, 

(•5, IP RKDB CONTAINED THE CORRECT WORD. 

(•IF 'SIN* OCCURS DRIVE RESET IS DONE BEFORE READING 

(•THE NEXT SECTOR. READ IS DONE IN THIS ORDER SEC 0-11 

(•CYL SUR •> SEC 0-11 CYL SUR 1 •> SEC 0-11 CYL 1,.. 

(•IF TESTING ON SIMULATOR ONLY LAST CYLINDER (312), LAST 

(•SECTOR (13), SURFACE 1 IS READ. 
; I •••••• •••••••••»*••»•••»•••»••••••••••••••«•••••««»•••»•«••«•«• 

T5T25I SCOPE 

{(00 1 ITERATION 
(SET RETURN ADRES FOR 
(LOOPING ON ERROR (SW9) 



MOV 

MOV 



*1, (TIMES 
*1I,ILPERR 



MOV 
CLR 

MOV 

TST 

8EQ 

BIS 

BR 

MOV 

MOV 



*0UTBUF,R3 
R4 

DRIVAD.Rl 

SIMUL 

iOt 

•14533, Rl 
1* 

••14, R0 
•-313,RS 



CNT, RESET 



(FLAG, CLEAR WHEN READING SURFACE 
(SET WHEN READING SURFACE 1 
(GET DRIVE ADDRESS 
(TSTING OH SIMULATOR? 
(IF NOT BRANCH 

(SET ADRES BITS FOR LAST CYL (312) 
(LAST SECTOR (13), SURFACE 1 
(SET COUNT FOB 12 SECTORS 
(SET UP COUNT FOR 203 CYLINDERS 

(GO, 00 CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
(RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
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2933 
2934 
3939 
3936 
3937 
393« 
3939 
393* 
3931 
3932 
3933 
39)4 
39J5 
3936 
3937 
3938 
3939 
2940 
3941 
3943 
3943 
3944 
2945 
3946 
2947 
3948 
3949 
3950 
3951 
3952 
3953 
2954 
2»55 
2956 
2957 
2959 
3959 
3960 
3961 
3963 
3963 
3964 
296S 
2966 
3967 
3968 
2969 
2970 
3971 
3973 
3973 
3974 
2975 
2976 
2977 
2971 
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8E0 0073 



0114M 


104421 








TST.StH 




01 t4f 2 


009037 


001396 




• 81 


CbR 


INOXl 


011444 


010377 


167724 






NOV 


R3rBRKBIl 


011413 


012777 


177777 


167714 




NOV 


••ItRRKHC 


011430 


010177 


167714 






NOV 


RlfORKDk 


011434 


012777 


000009 


167700 




NOV 


IS>0RKe« 


0U433 


105777 


167674 




381 


T8TB 


•RKCS 


011436 


10041 1 








BHJ 


38 


011440 


005337 


001356 






INC 


IHOXl 


011444 


001372 








BNE 


38 


011446 


004737 


020702 






JSR 


PCrGT4RG 


011492 


010137 


001202 






NOV 


Rl>8ReS10 


01 1496 


104416 








BRKDM 




011460 


104045 








ERROR 


49 


011463 


033777 


001000 


167636 


381 


BIT 


I1000I«RKDS 


011470 


001405 








BCO 


48 


011473 


004737 


020710 






JSR 


PC>GT3RG 


011476 


010137 


001170 






HOV 


R1>8REG3 


011902 


104001 








ERROR 


1 


011904 


004737 


021134 




48 > 


JSR 


PCfCHKHEl 


011910 


104046 








ERROR 


46 


011912 


020U3 






981 


CNP 


R1<(R3) 


011914 


001407 








BEQ 


68 


011916 


010137 


001162 






HOV 


Rlf8REG0 


011922 


011337 


001164 






NOV 


(R3}>(REC1 


011936 


010137 


001166 






MOV 


Rl>8REa2 


011932 


104044 








ERROR 


44 



ir THE 'CMTRL ROlf' DOES NOT SET 
AN ERROR IS REPORTED. NOTE TH»I 
THE PC IN ERROR MESSftCE IS THE 
PC HHCRE 'CNT. RESET' IS LOCATED. 
THIS IS t VERT BASIC ERR 4 If IT 
OCCURS CO BACK TO TEST 10 
GO CHECK 51H» It SET DO 
DRIVE RESET TO CI.R IT 

ADRES TO HHICH DATA IS TO B X-FCRRED 

FROM THE DISK 

SET UP MORD COUNT 

ADRCS THE DRIVE HITH CORRECT 

CYLINDER SECTOR ADRES 

READ* GO 

DID CNTRL RDI SETT 
lES. BRANCH 

H0> HAVE U HAITGD LONG ENOUGH 
IF HOT, LOOP BACK 1 WAIT FOR IT 
IF TE8« REPORT ERROR 
G0« GET RKCSr ER, DS,DA 
GET DISK-ADRES WHERE ERROR OCCURED 
GO TO *BDA4' t BREAK CONTENTS OF 
8REG10 INTO OR «>CTL«SUR,SBC BITS 
CHTRL RDT DID NOT SET AFTER DOING 
A 1 HORD READ FROM ADRES AS 
INDICATED IN <DISK»ADReS> 
'RKDA' IN EROR HSGE GIVES THE 
CONTENTS OF RKDA AT THE TIME OF ERROR 

DID 'SIN' SET7 
NO, BRANCH 

GO, GET RKCS, ER, DS 

GET DISK-AORES HHERE SIN 0CCURED3 

'SIN' ERROR ON pOlHi READ FROM 

DISK>ADRES INDICATED IN 8ReG3 

CHECK IF 'ERR* OR 'HE' BIT IS SET, 

IF TES, RETURN HERE. 

'HE* OR 'ERR' OH DOING A READ OF 

i MORD FROM ADRES AS INDICATED 

IN <DISK-ADPEa> 

'RKDA' IN EROR MSGE GIVES THE 

COHIEHTS OF RKDA AT THE TIME OF EROR 

HAS THE CORRECT DATA HORD RECVDT 

GET EXPCTD DATA NORD 

GET DATA HORD RECVD 

GET DISK-ADRES 

DID HOT RECIEVE THE CORRECT 

DATA HORD FROM DISK OH DOING 

1 HORD READ FROM 'DISK-ADRES' 

AS INDICATED BY 'EXPCTD' DATA HORD 

NOTE THAT IH h PREVIOUS TEST THE 

FIRST WORD OF EACH SECTOR IS UNIQUELY 

HRITTEN HITH A NORD GIVING THE 
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3979 
3980 
2901 
3982 
2983 
39S4 
3989 
3986 
2987 
3988 
2989 
2990 
2991 
2992 
2993 
3994 
3995 
3996 
2997 
3998 
2999 
3ia0e 
3001 
3003 
3tl03 
3i904 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3013 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3030 
3031 
3033 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3030 
3031 
3033 
3033 
3034 



•11934 
011540 
011542 
011946 
011994 



011956 
011963 
011564 
011566 
011570 

011573 
011576 
011602 
011604 
011606 
011610 
011614 
011616 
•11620 
•11624 
011626 



•30177 
001406 
010137 
017737 
104037 



•05737 
001022 
005201 
005200 
001303 

013700 
043701 
005704 
001004 
005204 
062701 
•00670 
005004 
062701 
00S205 
001263 



001163 
167570 



177764 
000037 



000030 
000040 



CMP 
BEO 
MOV 
MOV 
ERROR 



TSI 
BNE 
INC 
INC 
BNE 

MOV 

BIC 

T8T 

BNE 

INC 

ADD 

BR 

CLR 

ADO 

INC 

BNE 



R1,»RK0B 
78 

RlfSREGO 

•RKDB,tREGl 

37 



8IHUL 

TST36 

Rl 

R0 

18 

• •14, R«) 

•37, HI 

R4 

98 

R4 

•30, Rl 

1* 

R4 



•40, Rl 

R5 

18 



lABSOLUTC ADDRESS OF THAT SECTOR IN 

(TERNS OF, DRIV *> CYL ADRES, SUR, SEC ADHS. 

IDOES RKOB CONTAIN CORRECT VQRD 

I YES, BRANCH 

>N0> GET EXPCTD RKDB 

>8ET RKDB RCCVD 

rRKDB ERROR OH READ, 

;FOR RKltC, AFTER A READ RROB 

IC0NTAIN8 CHECKSUM FOR THE SECTOP 

(READ. 

IHHEREAS FOR RKtlD, AFTER READ 
I RKDB COHTAINS THE LAST HORD 
(READ FROM THAT SECTOR 6 
(X-FERRED TO MEMORY 
(TESTIHG ON SIHULATORT 

I I IF YES, EXIT 

(INCREMENT TO ADRES HEXf SECTOR 
(HAVE U CHKO ALL 12 SECTORS? 
(IF NOT, LUP SAK ( CHK THE NXT 
(IF YES... 

(RESET THE COUNT FOR 12 ICCTORS 
(CLEAR SECTOR, SURFACE BITS 
IDOING SURFACE 17 
lYES, BRANCH 
(NO 

(INCREMENT THE ADRES TO NXT SURFACE 
(GO READ SURFACE 1 

( INCREMENT TO NXT CYL 

(HAVE U CHKD ALL 203 CYLINDERS 

(IF NOT, LOOP BACK S, CHK THE NXT CYLINDER 

(YES 



}(••••••• 

(•TEST 26 



CHECK 'SEEK' FUNCTION, HITH DIFPERRENT VKLOCITT MODES 
(• THIS TEST CHECKS SEEK IN DIFFERENT VELOCITY MOOES (DIFF <3, 
(» 3 < DIFF < 31, DIFF > 31). FOR THESE 3 BASIC VELOCITIES SEEK IS DONE BOTH 
(• IH FWD AND REV DIRECTION TO CHECK THE ADDER i DIFFERENCE LOGIC. IF 
(• WHILE DOING A SEEK 'SIN* OCCURS, A DRIVE RESET IS DONE TO INITIALIZE 
(• THE POSITIONING LOGIC 



•11630 000004 



tt* 

T6T26I 



011632 


012737 


000005 


001206 




MOV 


•S,8TIMES 


((DO 5 ITERATIONS 


011640 


013703 


001373 






MOV 


•SEEK0,R3 


(INITIALIZE POINTER TO THE FIRST 


011644 


005017 












(SEEK ADDRESS 


001356 






CLR 


IHOXl 


(IHOXl, WHEN INDICATES SEEK IN FWD niRtCIION 


01 1650 


013700 












; WHEN 1 INICATE8 SEEK IN REV niRECTION 


001332 






MOV 


RKCS.R0 


•11654 


01)701 


001 33(> 






MOV 


RKOS.RI 




•11660 


013702 


0013)1} 






MOV 


RKER,R3 




811664 


012737 


eillb72 


H0iite 




KOV 


•II.ILPERR 


(SET RETURN HDRES FOR LUPING ON 


•11672 














(EROR (SW 9) 


001*24^ 






111 


NOP 




011674 


10441) 






211 


CNT.RFSET 


JGO, DO CONTROL RrSET 



rTHlS IS » CALL FOR THE 'CNTRL- 
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303S 








3016 








3037 








3038 








3039 








3040 








3041 








3042 








3043 


011676 


104421 




3044 








3045 








3046 








3047 


01 1 700 


013704 


001350 


3048 


011704 


051304 




3049 


011706 


010477 


167436 


3050 


011712 


012710 


00001 1 


3051 








3052 


011716 


10441 2 




3053 








3054 


011720 


104031 




3055 








3056 








3057 








3058 


011722 


005005 




3059 


011724 


032711 


000100 


3060 


011730 


001005 




3061 


011732 


005205 




3062 


011734 


001373 




3063 


011736 


004737 


030702 


3064 


011742 


104026 




3065 








3066 


011744 


033711 


001000 


3067 


011750 


001403 




1068 


011752 


004737 


020702 


3069 


011756 


104001 




3070 


011760 


032710 


140000 


3071 


011764 


001403 




3073 


011766 


004737 


020702 


3073 


011772 


104022 




3074 








3075 








3076 








3077 


011774 


02271 


000210 


3078 


012000 


001 406 




3079 


013003 


01 1037 


001164 


3080 


012006 


012737 


000310 


3081 


012014 


104024 




3082 








3083 








3084 


012016 


030477 


167316 


3085 


012022 


0014«I6 




3t986 


012034 


010437 


001162 


3087 


012030 


017737 


167304 


3088 


012036 


104H37 




3089 








3090 


012040 


01P477 


167274 



NITH DirrtRPCNT VELOCITY MODES 

: RESET* POUTIHE. « CONTROL RESET IS 
! ISSUED AND AfTER A CERTAIN TIHE 
>ir THE 'CNTRL RDY' DOES MOT SET 
tkn ERROR IS REPORTED. NOTE THAt 
{THE PC IN ERROR HESSAGC IS THE 
I PC WHERE 'CHT.RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR (. IF IT 
I OCCURS GO BACK TO TEST 10 





TST.SIH 




|60> CHECK ir SIN IS SET. IT SET 








(DO ORT-RBSET TO CLEAR IT 




HOT 


DRlVADf R4 


rGBT DftIT«AORBS 




BIS 


(R3) t R4 


ySCT CYLINDER BITS 




HOT 


R4f 0RKDA 


lADDRS THE DRIVE 




MOT 


41 1 > 8R0 


; SET 'SEEK* > *00' 




CHKCRDY 




;G0 CHECK IF CONTROL RDY IS SET 






:ir so, SKIP THE EROR MESSAGE. 




ERROR 


21 


j'CBTRL RDY' DID NOT SET AFTER 








tSEHDIHG CYL ADD TO THE ORIVi 'ADD ACK* 








>rR0N DRIVE SHLD HAVE COME BACK 








> THEREUPON SETTING 'CNTRL ROY' 


4«l 


CLR 


R5 


}0ID R/H/8 RDY SET? 


StI 


BIT 


•100. 0R1 




BNE 


68 


iTESi BRANCH 




IMC 


R5 


fNO< WAIT 




BNE 


S( 


(WAITED LONG? 




JSR 


PCrGT4RC 


|G0, GET RKCSf ER« D8> DA 




ERROR 


26 


rR/H/S ROY DID NOT SET ON 








(COMPLETION OF SEEK 


6*1 


BIT 


*1000> tRl 


(DID SIN SET? 




BCQ 


71 


(N0> BRANCH 




JSR 


PC'GT4RG 


(GO, GET RKCSf ER> DSi OA 




ERROR 


1 


(SIN SET ON DOING SEEK 


7tl 


BIT 


tl4B000f tR0 


(DID 'HE' OR 'ERR' SET? 




BEQ 


8( 


(YES 




JSR 


PCrGT4RG 


(GOr GET RKCSr ER, DSr DA 




ERROR 


23 


1 'ERR OF 'HE' BIT SET HHBN 








(SEEKING TO CIL AS INDICATED 








(IN RKOA 


811 


CMP 


1310, »R0 


(DOES RKCS STILL CONTAIN THE 'SEEK' PNCTION 




BCQ 


»l 


(YES - EXIT 




HOT 


»R0,IREai 


(N0> GET RKCS RECTO 




MOT 


•210rSREe0 


(GET EXPCTD RKCS 




ERROR 


24 


(RKCS SHOULD CONTAIN THE 'SEEK' BITS 








(ir NOT, ERROR 


911 


CMP 


R4,8RK0A 


(DID RKOA CHANGE? 




BEQ 


10S 


(NO 




HOT 


R4,tRCa0 


(YES, GET BXPCTD7 




MOT 


•RK0A,«REG1 


(GET RKDA 




ERROR 


27 


(RKDA CHANGED AFTER DOING SEEK 


10*1 


MOV 


R4,BRK0A 


(ADRCS THE DRIVE, SEC 
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3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3130 
3131 
3132 
)133 
3134 
3135 
3136 
3137 
3138 
3129 
3130 
3131 
3133 
3133 
3114 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 



013044 

012052 
012060 
012064 
013066 
012072 
013074 
013100 
012104 
012112 



012114 
012120 
012122 
013124 
013130 
012132 
012136 
012140 
013143 
013146 



013150 
013152 
013160 
013164 
012166 
013172 



012174 
012176 
012202 
012206 
012210 
012214 
012220 



012777 
012777 
012710 
104414 
021 337 
001410 
00S037 
011337 
013737 
104043 



005737 
001007 
005733 
022703 
001260 
005237 
005743 
005743 
023703 
001351 



000004 
012737 
005737 
001124 
013701 
104413 



005000 
012703 
013704 
010405 
052705 
010577 
012777 



033340 

1 77777 
002305 



001162 
001164 
033240 



001400 
001356 



000005 
001344 



001332 



033240 
001350 

014500 
167120 
177777 



167364 
167294 



MOV 
MOV 
HOV 

CNT.RDY 

CMP 

RFQ 

CLR 

MOV 

MOV 

ERROR 



1ST 
BNE 
TST 
CMP 
BNE 
INC 
1ST 
TST 
CMP 
BNE 



lOUTBUPflRKBA 

»-l,»PKWC 

*2009,BRe 

(R3),0UTBUr 

lit 

(REG0 

(R3)>tR{:Sl 

outbuf,«re;g2 

43 



IHDXl 

12S 

{R3)* 

<SCEK2>2,R1 
U 

INDXl 
-(R3) 
-(R3) 

«SEBK0>2,P3 
It 



(READ ONE HEADER INTO THIS 
(BUS ADRES 
(GO, READ FORMAT 
(WAIT FOR CNTRL PDY 

(HAS THE CORRECT RBA0E4R READ (FROM 
(CYLINDER TO HHICH SEEK HAS DONE BErORE) 
(STORE SEC * FROME WHERE HDR WAS RD (0) 
(GET EXPCTD HEADER 
(GET HDR RECVD 

(WRONG HDR WAS RECVD FROM CYLINDER (ADRES 

(IN ER MSGCK NOTE THAT A PURE SEEK HAS 

(DONE TO THIS CYL BEFORE READING HOR 

(USING REiVD FORMAT 

(SEEK IN REVHSE DIRECTION? 

(YES, BRANCH 

(NO, INCREMF.NT PTR TO NXT SEEK ADRES 
(DONE WITH ALL SKS IN FWO DIR? 
(NO, 60 00 NXT ONE 
(SET FLAG INDICATING SK IN BtVRSE 

(POSITION PTR TO NXT SK IN REV 
(DONE WITH ALL? 
(IF NOT, DO NXT ONE 



((••••••••••»•••»•»•••••*•••••«*•»*••»•••*«••••*•«•••••»••••••••• 

(•TEST 27 CHECK DRIVE RBStT FROM LAST CYLINOBR 

(•THE HEADS ARE POSITIONED ON THE LAST CYLINDER (DOING 
(•AN IMPLIED SCEK>READ). THEN A DRIVE RESET IS ISSUED. 
(•IT'B CHECKED IF THE HEADS WERE BROUGHT BACK TO BY 
(♦DOING A 1 WORD HEAD ( CHECKING THAT THE CORRECT WORD 
(♦H»i RECEIVED, IF TESTING ON SIMULATOR THIS TEST IS SKIPPED. 

t (••••••••••«•••••»•••••««•••■•••»»•••••««•«•«•««»««»««,««««««««« 

TST27I SCOPE 

JlOO S ITERATIONS 
JR U ON A SIMULATOR? 
()YES, EXIT 



MOV 
TST 
BNE 
HOV 



CNT.RESET 



i5,tTlMES 
SIMUL 
TST30 
RKCS,R1 



CLR 
MOV 
MOV 
MOV 
BIS 
MOV 
HOV 



R0 

• 0UTBIIF,R3 
DRIVAD,R4 
R4,P5 

• 1490(^,R5 
RS,»RKOA 
l>-l,l»RKWC 



;G0, DO CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
(RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL RDY' DOES WOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CNT.RESET' IS LOCATED. 
(THIS IS A VERY BASIC ERR 6 IF IT 
(OCCURS GO RACK TO TEST 10 

(ADRES WHERE DATA WILL BE READ INTO 



(SET CYL ADPES=312 (OCTAL) 
(^DRES THE DRIVE, LAST CYLINDER 
(REAn 1 WORD 
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3t47 
314* 
3149 
3190 
3t«t 
3tS3 
31)3 
3154 
31SS 
31S6 
3157 
31SS 
3159 
3160 
3161 
3162 
3163 
3164 
3I6S 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3144 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
1193 
J194 
3195 
3196 
J197 
3198 
3199 
3200 
3301 
33B3 



012236 
013233 



013336 
013340 



013342 
013344 
013346 
013353 
013356 
012263 



013264 
012370 



012314 
012316 



012320 
017324 



012326 
012332 



012334 
012340 



010377 167104 
•12711 0O000S 



005000 
104414 



020513 
001407 

010537 001163 
011337 001164 
010537 001166 
104044 



012711 
104414 



NOV 
HOV 



R3,»RKBA 
I5.IIR1 



C(iR 

CHT.RDT 



3*1 



CH0 

BEO 
HOV 
HOT 
MOV 
ERROR 



R5,»R1 
I* 

R5>«REe0 
|lR3,tRCCt 
R5r«RBG2 
44 



HOV 115, «R1 

CNT.RDT 



013272 


005000 




CLR 


R0 




013374 


033777 


0t>0100 167024 4(1 


BIT 


1100 


• RKDS 


013303 


001011 




BNG 


9* 




013304 


013702 


177763 


HOV 


• -19 


R2 


012310 


005202 




INC 


R3 




012312 


001376 




BNE 


.-2 





009200 
001 366 



004737 
104026 



0327U 
001403 



004737 
1S)4032 



020702 
14000b) 
020702 



INC 



JSR 
ERROR 



BIT 
BCQ 



JSR 
ERROR 



PC,CT4RG 

36 



•140000, fRl 
6( 



PCf<!T4RG 
32 



I INTO THIS MEHORT ADRES 
;READ> GO 



THIS IS A CALI. rOR CM.RDt ROUTINE 

WHICH WAITS FOR CNTRL ROT TO SET. 

A RETURN tS MADE AFTER CNTRL ROI 

SETS. IF WITHIN A CERTAIN TIME 

CHTRL RDY DOESN'T SET AN ERROR 

HESSAGF IS GIVEN. WAITING TIME 

883 MS FOR 11/30, 175 HS FOR 11/45 

WAS THE CORRECT HORO READ? 

YES, SEEK TO 312 WAS DONE C0RRECTtY5,8 

GET EXPCTD WORD 

GET WORD RECVD 

GET DSK-AORES FROM HHERC WORD WAS READ 
DID NOT READ BACK CORRECT WORD FROM 
LAST CYL. SEC 0. IF TEST 45 t 46 
HERE SUCCESSFULLY DONE THIS 
ERROR MEANS THAT IMPLIED SEEK 
TO CYL 312 COULD NOT B DOME 
DRIVE RESET, GO 

THIS IS A CALL FOR CN.RDT ROUTINE 
WHICH WAITS FOR CNTRL RQf TO SET. 
A RETURN IS HADE AFTER CUtRL RDY 
SETS, ir WITHIN A CERTAIN TIME 
CNTRL RDY DOESN'T SET AN ERROR 
MESSAGE IS GIVEN. HAITIltS TIHE 
883 MS FOR 11/30, 179 MS FOR 11/45 

DID R/M/8 RDY SET? 
YES, BRANCH 

IF U R ON A SLOWER MACHINE 

6 DO NOT NEED SUCH A LARGE MACHINE 

TIME LOOP, CHANGE THESE 3 

INSTRUCTIONS TO 'NOP* THE 

LOOP TIME WILL BE REDUCED 

TO 1100 MS 

THE TOTAL TIME FOP THE ABOVE 

LOOPS CW/O PUTTING 'HOP'S) IS 

9)04 HS FOR 11/30 AND 

1061 MS FOR U/45 WITH MOS 

OR BIPOLAR MEMORY 

WAITED LONG? 

IF NOT, LUP BAK & WAIT 

IF YES, ERROR 

GET RKC8,ER(DS,DA 

R/W/8 RDY DID NOT SET AFTEH 

DOING DRIVE RESET 

DID HE OR ERR BIT 8EI7 

IF NOT, BRANCH 

GET RKCS,ER,DS,OA FOR ERROR MESSAGE 
HE OR ERR BIT SET ON DOING DRIVE 
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3203 






3204 


013342 


005305 


3205 


012344 


020577 


3206 


012350 


001406 


3307 


012)53 


010937 


3208 


013156 


017737 


3209 


012364 


104054 


3310 






3211 






3212 


017366 


012777 


3213 


012374 


010377 


3214 


013400 


010477 


3215 






3216 


013404 


013711 


3217 






3318 


012410 


•05000 


3219 


013413 


104414 


3220 






3221 






3222 






3233 






3224 






3225 






3226 


012414 


033413 


3227 


012416 


0>tl407 


3228 


012430 


ai0437 


3229 


012434 


011137 


3230 


012430 


010437 


3231 


012434 


104044 


3232 






3213 






3214 






3235 






3236 






3237 






3238 






3219 






3340 






3341 






3243 






334) 






3344 






3345 






3346 


012436 


000004 


3247 


012440 


)»44t3 


3348 






3249 






3250 






3251 






3252 






3253 






3254 






3255 






3356 






3257 


017443 


1i'442l 


3258 







177777 
166736 
166734 



001 163 
001 164 
001166 



I RESET FROH LAST CYLINDER 
t POSIT ION R9 TO EXPCTD RKOA 

;OID THE CYL ADRES BITS IN RKDA GET CHANGCDT 

(NO, BRANCH 

(GET EXPCTD RKOA 

(GET RKDA RECVD 

>CYLINDBR ADRES BITS IR RKDA 

>SOT CNAM6CD AFTER 

(DRIVE RKSCT, FROM LAST CTLINDER 

;READ 1 NORD 

;INTO TliCS ADRtS 

IFROH THIS DSK )IDRCS«CYL 0, SEC 
(READ, 00 



;THIS IS A CALL FOR CN.RDY ROUTINE 
(WHICH WAITS FOK CHTRL ROT TO SET. 
(A RETURN IS HADE AFTER CHTRL RDY 
(SETS. IP WITHIN A CERTAIN TIME 
(CNTRL RDY DOESN'T SET AN ERROR 
(MESSAGE IS GIVEN. NAITINO TIME 
(8(3 MS FOR U/30, 175 HS POR 11/45 
(WAS THE CORRECT WORD RCAOt 
((YES, EXIT 
(GET EXPCTD WORD 
(GET WORfi RECVD 

(GET DISK ADRES WHERE ERROR OCCURED 
(DID NOT READ CORRECT WORD FROH 
(CYL 0, sec 0. ir TEST 49 t 46 
(WERE SUCCESSFULLY DONE THIS 
(ERROR COULD MEAN THAT ORIVE>RBSET 
(DID HOT BRING HEADS BACK TO 0. 



( I •••••«•••••••««•»»••«••••••«•••«•••••••••»«««•«»«»«»»««« 

(•TEST 30 'WRITE* - 356 WORD BLOCK ON SECTOR 0, C*LlNDEft 

(THE TEST BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR 
(THE FOLLOWING TEST. IT WRITES A BLOCK OF 356 WORDS IN 
(SECTOR 0, CYLINDER WITH A SPECIFIC PATTERN AND THIS WRITTEN 
(BLOCK WILL BE MADE USE OF IN THE NEXT TEST TO CHECK 
(OUT 'WRITE«CHECK' AND 'READ CHECK' FUNCTIONS. 



INC 
CMP 
BEO 
MOV 
MOV 
ERROR 



MOV 
HOV 
MOV 



CLR 

CNT.RDY 



CMP 
BEO 
MOV 
MOV 
MOV 
ERROR 



R5 

R5,<iRK0A 
7» 

R5,(REG0 

*RKDA,SREG1 

54 



f-l,«RKWC 

P3,«RKBA 

R4,»RKDA 

•5,tRl 

R0 



R4,tR3 

TSTI0 

R4,tREG0 

*R},tREGl 

R4,tRBG3 

44 



((••»•* 

TST30I 



SCOPE 
CNT. RESET 



;G0, DO CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL> 
(RESET' ROUTIME. A CONTROL RESET IS 
(ISSUED AND AFTER X CERTAIN TIME 
(IF THE 'CNTRL RDY* DOES NOT SET 
[AH ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CNT. RESET' IS LOCATED, 
(THIS IS A VERY BASIC ERRfc IF IT 
JOCCURS GO RACK TO TEST IB 
(CHECK IF SIN IS SET, IF SET 
(DO DRIVE RESET TO CLEAR IT 



*' " 22-SEP-76 08M7 T3B 'WPITE' - 256 WORD BLOCK ON SECTOR B, CYLINDER 



DZRKKO.Ptl 



3259 


012444 


013704 


001332 






NOV 


3260 














3261 














3262 














3263 














3264 














326S 














3266 














3267 














3268 














3269 














3270 














3271 














3272 














3273 














3274 


0124S0 


012700 


033340 






HOV 


3275 


012454 


012701 


177401 






MOV 


3276 


012460 


013702 


177400 






MOV 


3277 


012464 


012703 


177400 






MOV 


3278 














3279 


012470 


010320 








HOV 


3280 


012472 


005202 








INC 


92R1 


012474 


060103 






1*1 


ADD 


1282 


012476 


010320 








SOV 


3283 


012500 


005202 








INC 


3284 


012502 


001374 








BNE 


3285 














3286 


012504 


012777 


177400 


166622 




NOV 


3287 


012512 


012777 


033240 


166616 




MOV 


3288 


012520 


013777 


001350 


166612 




MOV 


3289 














3290 


012526 


012714 


000003 






HOV 


3291 














3292 


012S32 


105714 






2(1 


TSTB 


3293 


012534 


100003 








BPL 


3294 


012536 


004737 


020710 






JSR 


3295 


012S42 


104030 








ERROR 


3296 














3297 














3298 


012544 


005002 








CLR 


3299 


012546 


105777 


166560 




311 


TSTB 


3300 


012552 


100411 








BMI 


3301 


012554 


005202 








INC 


3 302 


012556 


001373 








BNE 


3303 














3304 


012560 


004737 


020702 






JSR 


3305 


012564 


013T37 


001 350 


0>M202 




MOV 


3306 


012572 


104416 








BRKDA4 


330T 














3308 


012574 


104031 








ERROR 


3309 














3310 














3311 














3312 














3313 














3314 


012576 


004737 


021 142 




4tl 


JSR 



RKCS>R4 



;THE FOLLOWINC CODE IS FOR SETTING 
lUP THE I/O BBFFEB IN MEMORY (STARTING AT 
jOUrSUF), NITH A PARTICULAR 256 HORD PATTERN. 
ISTARTIHC FROM THE FIRST WORD IN THE BUFFER 
ITHE LO BYTE WltL BE A COUNT PATTERN 
IFROM TO 255 (DECIHAL)f WHEREAS THE 
I HI-BYTE WILL BE THE COMPLEMENT OF LO BYTE, 
|A DECREASING COUNT PATTERN FROM 235 TO 8. 
lI.E.THE BUFFER WILL LOOK LIKEI 
lOUTBUF (1 HI 111 1 00 000 000 J 

iooTBor*2 (1 111 111 00 000 001' 

ILAST HORD (0 000 '^00 H 111 111) 



tOUTBUF,R0 
*177401,R1 
|o40afR2 
4177400, R3 

R3,(R0)')' 
R2 

R1,R3 

R3,{K85* 

R2 

1$ 

f .400,»RKWC 

(0UTBUF,»RKBA 

0RIVAD,aRKDA 

*3,»R4 

0R4 
38-2 

PC,GT3BG 
30 



R2 

0RKCS 
4t 
R2 
It 

PC,GT4RG 
ORIVAD,«REG10 



; PATTERN GENERATING NUMBER 

(SET UP COUNT FOR 256 WORDS 

jSET UP THE FIRST PATTERN TO B WRITTEN 

;SET UP FIRST WORD IN I/O BUFFER 
(INCREMENT COUNT 
>SET UP NEXT WORD PATTERN 
•WRITE IT IN MXT I/O BUFFER WORD 
;HAVE U WRITTEN ALL 256 WORDS 
;IF NOT GO £ WRITE NEXT PATTERN 

;riRITE 256 WORDS 

; STARTING FROH THIS BUS ADRES 

;T0 THIS DISK ADRES, CYL 0, SEC 

(WRITE, QO 

;WAS CNTRL RDT CLEARED AS GO HAS SETt 
I YES, BRANCH 
(GET RKCS, ER, OS 

(CNTRL ROY DID NOT CLEAR AS GO »iAS SET 
(TO 'WRITE' 



(DID CNTRL ROY SET? 

(YES, BRANCH 

(WAITED LONG ENOUGH? 

(IF NOT, LUP BAK t, WAIT 

(IF YES. ERROR 

(SO, GET RKCO, ER, DS, DA 

(GET THE STARING ADRES 

(BREAK CONTENTS OF SREGIS INTO 

(DRV «, CYL, SUR, SEC » 

(CNTRL PDY DID NOT SET ON COMPLETION 

(OF WRITE OF 256 WORDS ON CYL 0/ SEC 

{'RKDA' IN EROR MSCE GIVES THE 

(CONTENTS OF RKDA AT THE TIME OF EPOP 

(WRITE WAS DONE STARTING AT <DSK*ADRCS> 

(I«IDICATED IN CROR MSGE 

:CHECK IF 'ERR' OR 'HE' BIT IS SET, 
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NDEP 



3315 






3316 


012602 


104032 


3317 






3319 






3319 






3J2«> 






3321 






3322 


012604 


020077 


3323 


012610 


001406 


3324 


012612 


010037 


3375 


012616 


017737 


1326 


012624 


104015 


3327 






3328 






3329 


012626 


004737 


3330 






3331 


012632 


104034 


3312 






3313 


012634 


004737 


1134 






3 335 


012640 


104033 


3336 






3137 


012642 


004737 


3118 






1119 


012646 


104036 


3340 






3341 


012650 


022714 


3342 


012654 


001406 


1343 


012656 


012737 


3341 


012664 


01 1437 


3345 


012670 


104024 


314A 






3147 






3148 






3349 






3350 






3351 






3352 






3353 






3354 






3155 






3356 






3357 






3358 






1159 






3360 


012572 


000004 


3361 


012674 


104413 


3362 






3363 






3364 






3 365 






1366 






3367 






1368 






1369 






3170 







001162 
166514 



000202 
001164 



CMP 
BEQ 
HOV 
MOV 
ERROR 



JSR 

ERROR 

JSR 

ERROR 

JSR 

ERROR 

CMP 
BEO 
HOV 
MOV 
ERROR 



R0,flRKBA 
6t 

P0,tREO0 

»RKBA,«REG1 

35 



PCCHKWC 
34 

PCCHKDA 
33 

PCCHKER 
36 

•202, aR4 
TST31 

•202,1RCG0 

8R4,SREG1 

24 



IF YES, RETURN HERE 

HE OR ERR BIT SET ON DOING WRITE 01^ 

25b WORDS ON CYL 0, SEC 

WRITE WAS DOME STARTING AT <DSK-ADRF,S> 

INDICATED IN EROR MSGE 

•RKDA' IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

DID RKBA INCREMENT CORRECTLY? 

YES, BRANCH 

GET EXPCTD RKBA 

GET RKBA PECVD 

RKBA DID NOT INCREMENT CORRECTLY 
(BY 1000 OCTAL BYTES) AFTER WRITE 
OF 400 (OCTAL) WORDS ON SEC 0, CYL 
CHf.CK IF RKWC OVERFLOWED TO 0, 
IF NOT RETURN HERE. 
RKWC DID NOT OVERFLOW, AFTER A 
WRITE OF 256 WORDS ON CYL 0, SEC 
CHECK IF RKDA INCREMENTED CORRECTLY, 
If NOT RETURN HERE 

RKDA DID NOT INCREMENT BY 1 AFTER 

A WRITE OF 256 WORDS IN CYL 0, SEC 

CHECK IF AMY BIT BKER IS SET 

IF YES RETURN HERE. 

RKER BIT SET ON DOING WRITE ON 

CYLINDER 0, SECTOR 

DOES RKCS STILL CONTAIN THE WRITE BITS? 

(YES, EXIT 

GET EXPECTED RKCS 

GET RKCS RECVD 

RKCS DID NOT CONTAIN THE 'WRITE' 
(BITS AFTER THE FUNCTION WAS DONE, 



( I •*•••••«••••*••»••••*•«•••••««••««•»«*••«•«••••««»»«« 
(•IE«T 31 CHECK THAT WRITE WftS DONE CORRECTLY 

(»THIS TEST CHECKS IF THE 'WRITE' OF 256 WORDS DONE IN PREVIOUS 

(•TEST IS GOOD, THE SEQUENCE OF OPERATIONS IS AS FOLLOWING! 

(•1) DO A READ OF 256 WORDS FROH SECTOR 0, CYLINDER 

>• INTO A BUFFER STARTING AT 'OUTBUF'. 

(•2) COMPARE 6 CHECK THE DATA THAT IS READ (STARTING AT 'OUTBUF') 
(• WITH THE DATA THAT WAS GENERATED PREVIOUSLY 
1*3) REPORT AH ERROR IF THE DATA READ BACK FROH DISK DOES 
(• NOT COMPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN 
((•••••«•••••••••«•••••••••«•«•»•»••••••**«•••»»•«•••«•«»•»«»,««• 

T«T31( SCOPE 

CNT. RESET (GO, DO CONTROL RESET 

(THIS IS A CALL FOR THE 'CNTRL- 
(RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL RDY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THF PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CNT. RESET' IS LOCATED, 
(THIS IS » VERY BASIC ERPt IF IT 
(OCCURS GO «ACK TO TEST 10 
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SEQ 9999 



J171 
1372 
3173 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3)81 
3)82 
3383 
1384 
1385 
3386 
3387 
3388 
3389 
3390 
3)91 
)392 
3393 
3394 
1395 
3396 
3397 
3 398 
3399 



012676 


104421 








TST > SIN 




012700 


013709 


177400 






KOV 


(•400# R0 


012704 


912701 


033240 






MOV 


IOUTbUFiRI 


012710 


005W21 






9*1 


CbP 


(Rl)» 


012712 


00530III 








INC 


R0 


012714 


001375 








BNE 


8t 




005000 








CLB 


RB 


HI 9720 


012777 


177400 


166406 




MOV 


t>400f tRKUC 


012726 


01 2777 


033240 


166402 




MOV 


tOUTBUFr VRKBk 


012734 


013777 


001350 


166376 




MOV 


ORIVAO,0RKDA 


012742 


01 2777 


000005 






MOV 




012750 


105777 


166356 




111 


TSTB 


•RKCS 


012754 


100411 








BMI 


28 


012756 


005200 








INC 


RO 


012760 


001373 








BNC 


1* 


012762 


004737 


020702 






JSR 


PCrCT4RG 


012766 


013737 


001350 


001203 




MOV 


ORIVAO>*RECie 


012774 


104416 








BRKDft4 




012776 


104045 








ERROR 


43 



3400 


013000 


032777 


001000 


166330 


311 


BIT 


»I000f ORKDS 


3401 


013006 


001033 








BNC 


TST33 


3402 


013010 


012701 


177400 




Sit 


MOV 


••400>R1 


3403 


013014 


012702 


177777 






MOV 


#177777, R3 


3404 


013030 


B127n) 


033340 






MOV 


tOUTBUF,R3 


3405 


01)024 


013705 


177773 






MOV 


1-5, R5 


3406 


0110)0 


063703 


177401 




611 


ADO 


4177401, R3 


3407 


013034 


030213 








CMP 


R3,(P3) |MAS THE 


3408 
















3409 


013036 


001414 








BEO 


71 


3110 
















3411 


013040 


010137 


01)1162 






MOV 


R1,SREC0 


3412 


013044 


063737 


000401 


001163 




ADO 


• 4i»l,IREG0 


3413 


013053 


010337 


001 164 






MOV 


R3,IREG1 


3414 
















3415 


013056 


011337 


001166 






MOV 


(R)},IREG3 


3t|6 


013063 


104055 








ERROR 


55 


3417 
















3418 
















3419 
















3430 


01)064 


005305 








IMC 


R5 


3421 


013066 


001403 








BtO 


TST)3 


3432 


01)070 


005733 






7lt 


ISf 


(R3)* 


3433 
















3424 


013072 


005301 








INC 


Rl 


3435 


013074 


001355 








BNE 


61 



fCHECK IF SII IS SET, IF SET 
too DRIVE RESET TO CLEAP IT 
JSET COUNT FOR 400 WORDS 
ITO BE CLEARED IN THE BUFFER 
ICLR THE 400 HORD BUFFER 
fSTARtlHG AT 'OUTBOF* 



(READ aS6 NOROS 

I INTO THIS ADRES 

t STARTING FROM THIS DISK ADRES 

I READ, GO 

10 ID CMTRL ROT BETT 
;rES, BRANCH 
I WAITED LONG EHOUGHT 
;IF HOT, LUP BAK WAIT 
] ERROR, IF YBS 
;60, GET RKCD, ER, DS, DA 
;GET THE STARTING ADRES 
jCO TO •BDA4' 6 BREAK CONTENTS OF 
;SREG10 INTO DRV I, CYL, SUR, SEC BITS 
» CMTRL ROT DID HOT SET AFTER READ 
I OF 400 H0RD8 FROM CYL 0, SEC 
;'RKD»* IN EROR MSGS GIVES THE 
J CONTENTS OF RKDA AT THE TIME OF EROR 
;READ HAS DONE STARTING AT <DSK«ADRES> 
; INDICATED IN EROR MCSCE 
IIS SIN SETT 
MiF YES, EXIT 



;THAT HAS SUPPOSE TO BE WRITTEN 
>rESf BRANCH 
flOi ERROR 
>GET THE I OF WORD 

lIHAT IS IN ERROR ( EXAMPLE"! , 3--376, 377 , 4fi«l 
;GET EXPCTD WORD (THAT WAS SUPPOSED TO 
;BE WRITTEN) 

;GET WORD RECVD (THAI WAS READ BAK) 
;DID NOT READ BUCK WORD THAT WAS SUPPOSED 
;T0 HAVE BEEN WRITTEN PREVIOUSLY, POSITION 
:0F WORD IN ERROR IS AS INDICATED BY 
MORD « (IREG0), SEC 0, CYL 

(lEXIT 

> INCREMENT POINTER TO NXT HORD (THAT 
(WAS READ BACK) 
I HAVE U CHKD ALL 356 H0R08T 
;IF NOT, LUP BAK ( CHK THE NXT WORD 
(IF YES, EXIT 



MAINDGC*11-0IRKK-D 



DIRKKO.Pll 2a-5EP-76 


08147 


3437 








3t3l 








3439 








3430 








3411 








3433 








3433 








3414 


01 3076 


000004 




341S 


013100 


104413 




3436 








3437 








3438 








3439 








3440 








3441 








3443 








344) 








3444 








3445 


013103 


104431 




3446 








3447 


013104 


013701 


001332 


3448 


013110 


01370] 


001334 


3149 


013114 


01370) 


001340 


3 450 


01)130 


013704 


001336 


3451 


013124 


013737 


053535 


3452 


0131)3 


013713 


17T400 


3453 


01)1)6 


013713 


001350 


3454 


01)143 


013714 


033340 


3455 


013146 


013711 


000013 


3456 








3457 


013153 


105711 




3458 


01)154 


100003 




3459 


01)156 


004737 


030710 


)460 


01)162 


104030 




3161 


01)164 


104413 




3463 








3463 








3464 


013166 


104056 




3465 








3466 


013170 


037711 


1401900 


3467 


013174 


00140) 




3 468 


013176 


034737 


030710 


3469 


013303 


1H4057 


3470 








3471 


013304 


033777 


008003 


3473 


013213 


001404 




347) 


013314 


0177)7 


1661)0 


3474 


013323 


104060 




3475 








3476 








3477 


013234 


005713 




3478 


013336 


001405 




1479 


013330 


011737 


001162 


3480 


013334 


811137 


001164 


3481 


013340 






3482 
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T31 CHECK THAT WRITE WAS DONE CORRECTLY 



ll»»»»« 
l»TEST 



33 CHECK 'Reno CHECK' FUNCIIOH - CTLIMDfR 0, iECTOH 

|»THIS TEST CHECKS OUT THE BASIC IREAD CHECK' LOGIC, USING THE DATA BLOCK 
(•'CYLINDER, SECTOR 0) WRITTEN IN A PREVIOUS TEST. HENCE THE TEST WHICH 
MWRITES THF DATA BLOCK OHOULO BE DONE PRIOR TO THIS TEST. 



SCOPE 
CNT. RESET 



I GO, DO CONTROL RESET 
ITHIS IS A CALL FOR THE 'CNTRL- 
IRESET' ROUTINE. A CONTROti RESET IS 
(ISSUED AND AFTER K CCRTklN TIME 
(IF THE 'CNTRL RDY' DOCS NOT SET 
;AN ERROR IS REPORTED, NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CMT. RESET' 15 LOCATED. 
I THIS IS A VERY BASIC ERRC IF IT 
(OCCURS GO BACK TO TEST 10 



TST. SIN 




(CHECK IF SIN IB SET, IF SET 






;D0 DRIVE RESET TO CLEAR IT 


MOV 


RKC8,R1 




MOV 


RKHC#R3 




MOV 


RK0A,R3 




MOV 


RKBA,R4 




NOV 


*B3S3S,0<ITBUr 




NOV 


1-400, 0R2 


(READ CHECK 356 WORDS 


MOV 


DRIVAD,NR3 


(STARTING FROM CYL 0, SECTOR 


MOV 


I0UTBUF,»R4 




MOV 


*1),RR1 


IREAD CHECK, GO 


TSTB 


•Rt 


lOID CNTRL RDY GET CLEARED AS GO HAS SETT 


BPL 


31 


lYES, BRANCH 


JSR 


PC>CT3RG 


IGET RKCS, ER, DS 


ERROR 


30 


(CNTRL RDY DID NOT CLEAR AS GO 


CHKCRDY 




(GO CHECK IF CONTROL RDY IS SET 






;IF SO, SKIP THE EROR MESSAGE, 






(HAS SET TO 'REUD CHECK* 


ERROR 


56 


(CNTRL RDY DID ROT SET ON DOING 






('READ CHECK' FROM CYL 0, SEC 


BIT 


1140000, »R1 


(DID 'ERR' OR 'HE* BIT SETT 


BEO 


41 


|N0, BRANCH 


JSR 


PC,GT)RG 


IGO, GET RKCS,ER,DS FOR ERROR MESSAGE 


ERROR 


57 


I 'ERR' OR 'HE' BIT SET ON DOING 






I'RCAO CHECK' ON CYLINDER 0> SEC 


BIT 


t3,8RKER 


lOID 'CSE* BIT SET IN RKERT 


BEO 


SI 


INO, BRANCH 


MOV 


•RKER,IREG0 


ICET RKER 


ERROR 


68 


(SOFT ERROR - CSE • ON DOING 'READ 






(CHECK' ON CYLINDER «, SECTOR 8 






(U SHOULD HAVE GOT ERRROR 102 ALSO 


TST 


«R2 


(DID WORD COUNT OVERFLOW TO 07 


BEO 


61 


(YES, BRANCH 


NOV 


IR3,«REC0 


:GET RKHC 


MOV 


IRt.tKEGl 


(QET RKCS 


ERROR 


61 


(■<ORD COUNT 010 HOT OVERFLOW 



(ON DOIHC 'PEAD CHK' ON CYL Bi SEC 
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CYLINDER 9, SECTOR 



- 


013242 


013702 


001^50 




013246 


005203 






013250 


030213 




3486 


OS 3253 


00140) 




3407 


0132S4 


010237 


001162 


34S8 


013260 


011337 


001164 


34«9 


013264 


104062 




3490 








3491 








3492 


013266 


022714 


033240 


3493 


013272 


001406 




3494 


013274 


012737 


033240 


3495 


013302 


011437 


001164 


j1o7 


013306 


104063 












3498 
3499 


013310 


022737 


052525 


3500 








3501 








3503 








3S03 


013316 


001412 




3504 








3505 


013320 


012737 


033240 




013326 


01!'37 


932523 


3507 


013334 


013737 


033240 


3508 


013342 


104064 




3509 








351 








351 1 








351 2 








351 3 








3514 








3515 








3516 








3517 








351 8 








3519 








)S23 








3521 








3522 








3523 


013344 


0k>oe04 




3524 


013346 


10441 3 




3525 








3536 








3527 








3S28 








3S29 








35 30 








3531 








3532 








3533 








3534 


VI13350 


104421 




3535 








3536 


013352 


01 3701 


001332 


3537 


013356 


01770«» 


177400 


»539 


013362 


"12702 


033240 



033340 811 



001162 
001164 
001166 



MOV 
IHC 
CNP 
BEQ 
MOV 
NOV 
ERROR 



CHP 
BEO 

HOV 
NOV 
ERROR 



BEO 

HOV 

MOT 
ERROR 



DRITItD.R2 
R2 

R3r»R3 

7| 

RSrlRCGO 
•R3,tREGl 

63 



•OUTBOPrOR4 

at 

fOUTBUP«*REG0 

0R4,«RC6t 

63 



493535 fOOTBOF 



TSI33 

tOUTBUPrlREOO 
*9Si2Sr8StGi 
0UTB0r«tRCe2 
64 



fRKD* SHOULD INCREMENT 
»I0 THIS UrTER 'RO CHK' IS DONE 
IDID RKDA INCREMENT CORRECtLYT 

JCET EXPCTD RKD» 
iGET RKDA RECVD 

I RKDA DID NOT INCREMENT CORRECTLY 
!t8Y 1) ON DOING 'READ CHK' OH 
jCYL 0» SEC B 
I DID RKBA SET CHANGED} 

;NOr BRANCH (RKBA WON'T CHANCE* NO NPR'S) 
;GET EXPCTO RKBA 
IGET RKBA PECVD 

JRKBA CHANGED AFTER DOING 'READ CHK' 
;0N CYLINDER 0, SECTOR 0. SHOULD 
INOT CHANCEr FORr NO NPR'S. 
>'OOTBUF' SHOULD STILL CONTAIN THE 
I SANE HORD AS IT DID BBFOIIC 'RO CHK' 
;NOTE THAT AT THE BEGIHING Of THIS TEST 
> 52525 WAS WRITTEN INTO 'OUTBOF' 
JlYESf EXIT 

I REPORT ERROR IF '0UT8UF' CHANGED 

;GBT AORES OF OUIBUF 
iSET EXPCTO ifOBD IS 'OBTBSr' 
JGEI WORD FOUND IN '00T9UF' 
lAS MENTIONED ABOVE, IF 'HRITE' OF 
t256 WORD DATA BLOCK WAS DONE 
ICORRECTLY BEFOREf THEM THIS ERROR 
iCOULO MEAN THAT AN NPR WAS DONE 
ION 'READ CHECK'. 

J I »•»••»»•••••••••••»••••••♦•♦•••»•••••**••♦•♦*♦♦•*••*•••♦•*••••* 

:»Tt8T 33 CHECK THE 'WRIT! CHECK' FUNCTION • ON CYLINDER Or SECTOR 

|»THIS TEST CHECKS OUT THE BASIC 'WRITE CHECK' LOGIC* USING THE 256 
|»NORO DATA BLOCK (SECTOR Of CYLINDER 0} WRITTEN IN A PREVIOUS 
|«TE8T. THE BUFFER IH MEMORY* USED FOR COMPARISON OF DATA* IS THE 
r»OME STARTING AT 'OUTBOT*. HENCE THE TEST WHICH WRITES THE 
1*256 WORD BLOCK ON THE DISK (AS "ELL AS CREATING THE 2S6 
t»256 WORD MEMORY BUFFKII) SHOULD BE DONE BEFORE THIS TEST. 
• I •••»••••••••••••••••••••«••••••«••••••»••«•*••••••••••••••••*•• 

TST33I SCOPE 

CNT. RESET (GO* 00 CONTROL RESET 

ITHIS IS A CALL FOR THE 'CNTRL- 
IRESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
J IF THE 'CNTRL ROY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
IPC WHERE 'CNT. RESET' IS LOCATED. 
ITHIS IS a VERY BASIC ERR( IF IT 
(OCCURS GO BACK TO TEST 10 
T8T.SIN (CHECK IF SIN IS SET* IF SET 

(DO DRIVE RCSET TO CLEAR IT 



HOV 
HOV 

MOV 



RKCS.Rl 
••400, RO 

(0UTBUF,R3 



HAINOEC-1 1-OERKK-D 
OZRKKD.Pll 72-Sf 
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3539 


013366 


012703 


3540 


011372 


067703 


3541 


013376 


01P322 


3542 


013400 


005200 


354J 


013402 


001373 


3544 


013404 


012777 


3545 


013412 


012777 


)546 


0134713 


01 3777 


3547 


013426 


012711 


3548 






3549 


013432 


005:»e^ 


3550 


013434 


10571 1 


3551 


013436 


10C(<0) 


3552 


013440 


0H47 37 


»S53 


013444 


104(330 


35S4 






3555 


013446 


104412 


3556 






3557 


013450 


104065 


3-,5« 






1'559 








013452 


037711 


3551 


013456 


001403 


3562 


013460 


004737 


156) 


013464 


104066 


3564 






3565 


013466 


032777 


3566 


013474 


001403 


3567 


013476 


004737 


3568 


013502 


104067 


3569 






1570 






3571 






3572 






357) 






3574 






3575 


013504 


M05777 


3576 


013510 


001 406 


3577 


013512 


017737 


3578 


013920 


011137 


3579 


013524 


104061 


3580 






3581 


013526 


013704 


3582 


013532 


005304 


3583 


013934 


020477 


3984 


011940 


001406 


3985 


013942 


010437 


3586 


013546 


017737 


3587 


013954 


104070 


3588 






35B9 


013556 


022777 


3590 


013964 


001 407 


3591 


013566 


012737 


3592 


013974 


01 7737 


3593 


013602 


1 .1407 1 


3594 







08(47 




133 


CHECK THE 'WRITE CHECK* 


FUNCTION • ON CYLINDER 0, SECTOR 


177777 






MOV 


•177777,03 




177401 




111 


ADD 


•177401, R3 










HOV 


R3,(R2)+ 










INC 


RO 










BNE 


11 




177400 


165722 




HOV 


*'40O,9RKHC 


(WRITE CHECK 296 WORDS 


033240 


169716 




MOV 


»OUTBUr*»RKBA 


(STARTING AT THIS BUS ADRES 


001350 


169712 




MOV 


DRIVAD,»RKDA 


(WITH THIS DISK DATA BLOCK (CYL 0, SEC 0) 


0l'0e07 






MOV 


*7,8R1 


(WRITE CHECK, 00 








CLR 


R0 


(GIVE SOME TIME 






211 


T8TB 


DRl 


(DID CNTRL ROY CLEAR AS SO WAS SET? 








BPL 


3S 


(YES BRANCH 


020710 






JSR 


PC,GT3RG 


(GET RKCS, ER, OS 








ERROR 


30 


(CNTRL RDY DID NOT CLEAR AS GO l«AS 












(SET TO no WRITE ChECK 






3*1 


CHKCRDY 




(GO CHECK IF CONTROL RDY IS SET 












;IF SO, SKIP THE EROR MESSAGE. 








ERROR 


69 


(CNTRL RDY DID HOT SET AFTER 












(COMPLETING WHITE CHECK ON 












(CYLINDER 0, SECTOR 


140000 




4(1 


BIT 


•140000, 8R1 


(DID HE OR ERR BIT SET 








BEO 


51 


(NO, BRANCH 


020710 






JSP 


PC,GT3RS 


(GO GET RKCS CR OS FOR ERROR MESSAGE 








ERROR 


66 


(HE OR CRR BIT SET ON DOING WRITE 












ICHK ON CYLINDER 0, SEC 


000001 


16S634 


5» : 


BIT 


•l.fRKEP 


(DID WCE SET IN RKERt 


020710 






BEO 


64 


(NO, BRANCH 






JSR 


PCSTSRU 


(YES GET RKCS, ER, OS 








ERROR 


67 


(WCE ON WRITE CHECK OF CYL 0, SEC 9 












(NOTE THAT IF A PREVIOUS TEST 












(fc THEN COMPARED WITH MEMORY BUFFER 












(TO SEE IF IT WAS WRITTEN CORRECT WAS 












(DONE RIGHT BEFORE, THIS ERROR SHOULD NOT 












(HAPPEN UNLESS THERE IS A FAULT IN THE 












(COMPARING LOGIC OF 'WRT CHK' 


16Sb24 




611 


TST 


■ RKHC 


(DID RKWC OVERFLOWT 








Pt:o 


7« 


(YES. BRANCH 


165616 


001 162 




MOV 


•RKWC,tREG0 


(NO, GET RKWC 


001 164 






HOV 


•R1 ,*RtGl 


(GET RKCS 








EHROR 


61 


(RKWC DID NOT OVERFLOW AFTER 


H01 3M) 










(WRITE CHECK ON CYL 0, SEC 




7« 1 


MOV 


DRIVAD, R4 


(RKDA SHOULD INCREMENT 


1 65^00 






INC 


R4 


(TO THIS AFTER WRT CHK 






CMP 


R4,8RKDA 


(DID RKDA INCREMENT C0RHECTLY7 


»0I 162 






PRO 


8« 


(YES, BRANCH 






MOV 


R4,|Rca0 


(NO, GET FXPCID RKDA 


165566 


»0I 164 




HOV 


l>RKDA,tRECl 


(GET RKDA RECVD 








ERROR 


7 11 


IRKDA DID NOT TNCRFMENT CORRECTLY 












((BY 1 SECTOR) AFTER WAT CHK ON SEC i" , C(l 


0342411 


165S52 


Btl 


CHP 


•nUTBIIF'«'1000t 8RKB* (DIP RKBA INCREMENT CORRECTLY? 








BFQ 


9S 


(trs, EXIT 


H34240 


001 162 




MOV 


•'"■UTBUF+lrfP^, »REGt' JGFT FPCTD RKP» 


165^36 


001 1 64 




Mnv 


ai^KH&,(REGl 


|GI-"T RKBA BECVO 








EHPOH 


7 1 


(RKB» niD NOT INCPEMFNT CORRECTLY 



(CPr U'00 BYTES) AFTPR A URT CHK 



NWHOEC-ll-DtRKK-D NMYll 3T(lia6) il4.0Ct-76 16196 PhGt t1 „ „ 

DZRKRD.Pll 32-SEP-76 »%t*l T13 CHECK THE 'URIIE CHECK' POMCTION - OH CYLINDER ». 8ECI0B V 

lOr 2S6 HORDS ON CTL a, SEC • 
9t| CMP lIBbtgRl JDOES RKC5 STILL CONT«IH THE WPT CHK BITS? 

BEO T3T34 MlfESt BRANCH 

t63 MOV (2e6i(RB6e »H0« GET EXPCTD BHCS 

MOV »P1,«RECI lOET BKCS RECVD 

ERROR 24 IRRCS BITS CHAHGEO AETER WRT CHK 

I HAS DONE 



SCO 999* 











1596 


01 3604 


022711 


000206 


3597 


013610 


001406 




3598 


013613 


012737 


00020b 


3599 


01 3620 


011137 


001164 


3600 


013634 


104034 












3692 








3603 
















3605 








3606 








3607 








3608 








3609 








3610 








361 1 








361 2 








w ! « 








361 4 








3615 


HI ifisfi 


000004 




361 6 




194413 




361 7 








361 8 








161 9 








3620 








3621 








3622 








3623 
















3625 








3636 


_ 

0136 32 


1 0442 1 




»f I 








3628 


1 3634 


_ 


001 3 33 


3639 


ai 


012700 








ai a^fli 




3631 


• 1 IftSfl 






36 32 








36 33 


813692 


00502 3 








005 200 




36 35 


01 3656 


001 379 




36 36 


1 3660 


012777 


1 77400 


3637 








???? 




01 1777 


HHI 1«« 










3640 














004005 


3642 








3643 


01 3704 




00] 362 


3644 


01371P 


1C5711 




3645 


013712 


1^«412 




3646 


013714 


;>05231 


0'ai363 


3647 


P1372e 


tl»1 J73 




3648 


013722 


aJ4737 


020702 


3549 


013726 


011717 


0i4)390 


3650 


013734 


104416 





J •TEST 34 CHECK THAI «A INHIBITS IHCPEHENTING OF PKBA 

I •THIS TEST CHECK« THAT THE BOS ADDRESS DOES HOT INCREHENT WHEN 

t»THE IBA BIT IS SET. 8B8UERCE OF OPEHAII0N5I 

|»1) CLEAR OUT aie HORD BUFFER IN MEMORY (OUtBUF) 

l»2) READ FROM BtCTOR 0. CYLINDER THE 356 HORD BLOCK THAT HAS 

»«NRITIEH IN A PREVIOUS TEST (NOTEl THAT TEST SHOULD HAVE BEEN 

l»DONE BEFORE THIS}. IBA BIT IS SET DURINQ READ BACK. 

»»J) CHECK THAI HKBA DID HOT IHCREHEHI 

f»4) CHECK THAT THE CIIIIBE BLOCK HAS READ INTO THE SAME MEMORY 
>»MORO (OUTBUn 6 THE REST OF THE NOROS IN THAT BUFFER ABE 
|*A8 PREVIOUSLY CLEARED OUT. 



TST34I 



169446 
165440 



SCOPE 
CNT. BESET 



HOV 
NOV 
MOV 
MOV 

Clf 
INC 
RNE 

fOV 
MOV 
MOV 



MOV 

CLP 

TSIB 

BMI 

INC 

BNE 

JSR 

HOV 

BBrDA4 



BKC3>R1 
••401. R0 
tOUTaUF,B3 
R2.R3 

(R3) + 



•-400,»RKHC 

K2,0RKBA 

IBIVAD.BBKDA 



rO'JMT 

HRl 

31 

rOUMT 
2( 

P-.CT4RC 

p»ivAo, •Pi-ai0 



iGOf DO CONTROL RESET 
I THIS IS A CALL FOR THE 'CNTRL- 
rREBKT* ROUTINE. A CONTBOL RESET IS 
; ISSUED AND AFTEB A CERTAIN TtMC 
fir THE 'CNTRL ROY' DOES NOT BET 
;AN ERROR IS REPORTED. NOTE THAT 
I THE PC IN ERROR MESSAGE IS THE 
;PC MHERE 'CNT. RESET' IS LOCATED. 
;THI8 IS A VERY BASIC ERRfc IF IT 
) OCCURS GO BACK TO TEST 10 
ICHECK IF SIN IS SET, IF SET 
lOO DRIVE RESET TO CLEAR IT 

I SET UP COUNT FOR 356 HOROB 



ICLEAR OUT THE 256 

(WORD MEMORY BUFFER STARTING 

>AI 'OUTBUF' 

(READ BACK 356 MOBDS 

(INTO THIS BUB ADRES (IBA HILL B SET) 
(FROM THIS DSK AOPES (SEC •• CYL 0) 
iNOTEt SEC HAS BEEN hRITTEN IN A 
(PREVIOUS TEST NITH » UNIQUE PATTERN 
|READ> GOf IBA SET 



:OID CNTRL ROY SET? 

>YESr BRANCH 

HAITEO LONG ENOUGH? 

) IF NOT. LUP BAK i. XAIT 

iGOi GET RKCSi EB. D6, OA 

(GET THE 8TAPTIHG »DPE8 

>BBEAK CONTENTS OF IREC10 



MAINnEC-1 1-DZRKK-n 
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ZRKkD.PII 23 


-SEP-76 


08147 




T14 


CHECK 


THAT ISA INHIBITS 


3651 
















3653 


013736 


1 <)4045 








ERPOF) 


45 


36?} 
















3654 


01 3740 


BH4737 


021 143 




311 


JSP 


p:.:hkhe 


it=i5 


















m 3744 










ERPOP 


46 


















36^8 
















3659 
















i6sa 
















3661 


t'l 17 46 


P2f 277 


165364 




411 


CMP 


P2,*PKBA 


)662 


813752 


001406 








BEO 


5» 


3663 


013754 


010237 


001 162 






NOV 


P2,|PEC0 


3664 


01 1760 


017737 


165352 


001 164 




MOV 


ARKBA.IPEGl 


366S 


011766 


104072 








EPPOP 


72 


J6SS 
















3667 


(113770 


032777 


001000 


169330 


511 


BIT 


•1000,fRKOS 


3668 


013776 


001042 








BNE 


T8T35 


3669 


>314000 


012700 


177408 






MOV 


••480.Re 


1670 


UI4004 


022713 


000177 






CNR 


4377, 8R2 


3671 
















3612 
















367 3 


014.>10 


001411 








SEO 


61 


3674 


014012 


012737 


000177 


801162 




MOV 


I377,IPEQ0 


3675 


014020 


011237 


001164 






HOV 


(P2),tREGl 


3676 


014024 


013737 


001 350 


001166 




MOV 


DRIVAD,lpeG3 


1677 
















3S79 
















1679 


B14t<32 


1/4044 








(PROP 


44 


9680 
















3681 
















3693 
















369] 


014034 


»,SS722 






6tl 


TST 


(R2)t 


3684 


(»14^16 


012705 


177773 






MOV 


1-5, R5 


1645 


014^42 


EI052t)0 






71! 


IMC 


R3 


3686 


314<J44 


001 41 7 








BEO 


TSTS5 


3687 


K14046 


005722 








TST 


tR2)* 


3688 


01 4050 


001 774 










7| 


3649 


md<i2 


B0S037 


001 164 






CLP 


SPECI 


3690 


«t4aS6 


814237 


001 166 






"OY 


-(R3),IRrG2 


3691 


914362 


31 ^("04 








Mfiy 


pe,P4 


3692 




!4627«4 


0>'04ei 






ADD 


1401, P4 


3643 
3694 
1695 




»!:'437 


a<;U62 






MOV 


P4, IRES0 


01 4.»74 


10407 1 










7 J 


3696 












3497 
















3698 
















3699 
















170J 
















1701 
















1702 
















1733 
















1744 
















! 705 
















3766 

















lINTO OP •, CYL, SUR, SEC 
CNTPL BDY DID HOT SET AFTER UOIriG 
READ 

CHECK IF 'ERR* OR 'HE* BIT IS SET, 
IF YES, RETURN HERE. 

EPF BIT SET ON DOING READ FROM SEC l^, 
CYL (INDICATED IN <DSK-ADPES>) 
'RKDA* IN EBOB HSGE GIVES THE 
CONTENTS OF RKDA AT THE TIME OF EPDP 

DID PKBA INCREMENT? 
OK IF NOT, BRANCH 
GET EXPCTD RKBA 
GET PKBA PECVD 

RKBA INCREMNTCD WHEN IBA BIT MAS 
SET, SHOULD NOT HAVE 
IS SIN SETT 
tIF YES, EXIT 

CHECK THAT THE FIRST NORO IN 

•OUTBUF' IS 37 7 (LAST i*ORD OF SEC ». 

CYL, 0). NOTF THAT PE«0 HAS DONE 

INTO THIS SA'E WRD NITH IBA SET 

IGET EXPCIC WORD (LAST WORD OF THE BITFEP 

SET i«ORD RECVD (LAST NRD FROM SEC 2) 

DISK ADPE6 WHERE ERROR OCCURED 

(SEC »i CYL i LAST WORD) 

DATA ERROR 

THE FIRST NOPO IN MEM BUFFER (OUTBUF) 

SHOULD BE NON-ZEPO t SHOULD CONTAIN 

THE LAST WORD READ BACK FROH SEC i 

CTL 8, THIS DID NOT HAPPEN IF THE EPRO? OCC 

INCREMENT POINTER TO THE HXT NORD 

ALLOH ONLY 5 MESASES FOP EBP 116 

CHKD ALL 256 MORDS IN THE BUFFER? 

lYES, EXIT 

IE THIS WORD 07 

YES, LUP SAK & CHK THE NX! M0BD7 
ERROR. GET EXPCTED WORD • 
(GET NOBD THAI NAS FOUND IN THE BUFFER 



ITHIS 'NORD IN MEMORY BUFFER 
iSHOULD HAVE 3EFS ZERO 
ITHE 256 HORD 8i;FER (8TARTI>»G AT 
lOUIBUF) MAS CLEARED BEFORE READING 
I8AK SEC H INTO IT. SINCE THE IBA 
jBIT i*A8 set during the READ, ONLY 
!IHE FIRST •'OPD OF (OUTBUF) SHOULD 
(HAVE CHAMGSD, THE PL3T OF THE MOP:! 
SSHOULO SE STILL , IF THIS ERROP 
jOCCUPSi 'tirif} »' (TF THE BUFFER) s; 
;tNDi:ATED IN THt TROP MESAGE) GOT 
iCHAHGED l«Hr(, f>n~ ^q^j fpQv, 

iTHF DISi', I>.DT:stIXG that WITH lik 
;SET I'fl'- »*S iji- "'3Ht I'iTO THE 
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3707 








3708 








3709 








3710 


014076 


005205 




3711 


014100 


001401 




3712 


014102 


000757 




3713 








3714 








3715 








3716 








3717 








37tS 








3719 








3720 








3721 








3722 


014104 


000004 




3723 


014106 


104413 




1724 








J725 








1726 








1727 








1728 








3729 








3730 








3711 








3712 








37U 


014110 


104421 




3714 








3715 


014112 


012746 


000340 


3716 


014116 


012746 


014124 


3737 


014122 


000002 




3738 


014124 






1719 


014124 


01 3701 


001332 


1740 


014110 


013700 


001402 


1741 


014114 


012720 


014170 


1742 


014140 


012710 


000340 


1711 


014144 


10571 1 




3744 


014146 


100176 




1745 


»91415e 


012711 


000100 


1746 


014154 


104420 




3747 








3748 


014160 


0)1137 


001162 


3749 


014164 


104074 




1750 








1751 








1752 


014166 


000400 




1753 


014170 


022626 




37S4 








3755 








1756 


014172 


022626 




3757 








1758 


014174 


012777 


014210 


3759 








1760 


014202 


104420 


000005 


1761 








3762 









jSAME HCMOBY LOCATIOH. 'WORD »' 

;rs OCTAL & SPECIFIES THE POSITION 

JIN THE BUFFER (FIRST WORD IS 'WORD »' 1) 



INC 
BFO 



R5 

TST15 
7» 



••»•••«*•••*•#•••«•*•***•«•******>** 
;»TEST 35 CHECK THAT RKll INTERRUPTS xHEN IDE IS SEI 

;»THIS TEST CHECKS IF PKll INTERRUPTS TO ITS DESICN»TED VECTOR 
j»»DDRCSS HHEH IDE BIT IS SET, WITH COHTROl, REAOT SEI ( GO CLEAR. 
S» n IS HORHALLT 220, UNLESS IT HAS BEEN CHANGED. If IT HAS BEE« 
;.CH»NGED BKU WILL INTERRUPT TO 'RKVEC'. MOTE 'RKVEC HAS 
I«TO BE SET OP BI THE USER. 
»;»•»•••»••••»•»»••••••••••♦•»••*•»•••••••••••••••♦*♦••••••*••*♦• 

TST35i SCOPE 

CNI. RESET ;G0, 00 CONTROL RESET 

JTHIS IS & CALL FOR THE 'CNTRL- 
J RESET' ROUTIHE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
»IF THE 'CNIRIi ROY' DOES HOT SET 
;AN ERROR tS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE 18 THE 
;PC WHERE 'CHT. RESET' IS LOCATED. 
;TH1S IS A VERY BASIC ERRt IF IT 
S OCCURS GO BACK TO TEST 10 



TST.SIN 




;CHECK IF SIN IS SET, IF SET 






:00 DRIVE RESET TO CLEAR II 


MOV 


»340,-(SP) 




MOV 


•646, '(SP) 




HTI 






MOV 


RKC8,R1 




MOV 


RKVEC, R0 


;GET POINTER TO PK VECTOR ADRES 


MOV 


*1*, (RB)*' 


;SET UP INTERRUPT VECTOR FOB RKll 


MOV 


#340, (R0) 


»SET PSW ON INTERRUPT 


TSTB 


•Rl 


JWAIT FOR CNTRL ROY TO SET 


BPL 


.-2 




MOV 


1100, SRI 


JSET IDE BIT IN RKCS 


WAT. INT 


,S 


JWAIT FOR INTERRUPT, ATLEftST 






;n US FOR U/20, 7 US FOR 11/45 


MOV 


8R1 ,tREGO 


;GET RKCS 


ERROR 


74 


;RK11 DID NOT INTERRUPT hHEN IDE 






(WftS SET, WITH CNTRLE RDY SET f. GO 






SCLEAP 


BP 


It 




CMP 


tSPJ*, (SP)+ 


;RK11 INTERRUPTED CORRECTLY TO 






;THIS. RESTORE STACK POINTER 






;(FPOH PKU INTERRUPT! 


CMP 


(SP)+, (SP)* 


I RESTORE STACK POINTER 






JtFROM HAT, INT) 


HOV 


•2«,aRKVEC 


;IF THERE 15 FAULTY POLLING OR INTEPUPT 






t LOGIC SECOND INTERRUPT MIGHT OCCUR 


WAT. INT 


,5 


T^AIT FOR INTERRUPT, IF ANY 



rOUE TO FAULTY LOGIC 
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1761 


014206 


000403 




1764 








3765 


014210 


022626 




1766 


014212 


022626 




1767 


014214 


104020 




3768 








17f.9 








1770 


014216 


H12777 


01^14526 


3771 








1772 


014224 


012746 


000140 


1771 


014230 


012746 


014236 


1774 


014234 


000002 




1775 


014216 






1776 








1777 








1778 








1779 








1780 








3781 








3782 








1781 








3784 








3785 








3786 








1787 


014236 


000004 




3788 


014240 


012717 


000005 


1789 


014246 


104413 




3790 








3791 








3792 








1791 








1794 








3795 








3796 








3797 








1798 








3799 


014250 


01 3700 


001 312 


3800 


0142S4 


01 1777 


001150 


3801 


014262 


004737 


021412 


1802 


014266 


10 4026 




3803 








3804 


01427? 


01 1701 


001 102 


3805 


014274 


012721 


014140 


3806 


014300 


01 271 1 


00<1140 


3807 


014304 


052777 


000040 


3808 


014312 


012710 


0001 1 1 


3809 


014316 


t»4429 


0140300 


3810 








3811 








3812 








3813 








1814 








3815 


014322 


012777 


004526 


1816 


014330 


01 1037 


0«1162 


1817 


014314 


104075 




1818 









165156 111 



CMP 
CMP 
ERPOR 



HOV 
HOV 
RTl 



(SP)*, (SP)+ 
f SP5*, (SP)+ 



•nADINT,8RKVEC 



•340, -tSP) 
»658,-(SP) 



JRESTORE STACK PTB (FROM RKll INTPUPT) 
;RESTORE STACK PTP (FROM WAT. INT) 
!ftN UNEXPECTED RKll INTERRUPT 
SOCCURED, THERE SHOULD HAVE BEEN 
;ONLY 1 INTERRUPT (TO 1$ ABOVE) 
! RESTORE VECTOP ADRES FOR 
;UNEXPECTED RKll INTERRUPT, 



I t ••••••••«•«*•••••*»*•••••«»*••»••••**•»»•»«•*«««•••*»**••*••••• 

>»TE8T 16 CHECK THAT WITH IDE SET RKll INTERRUPTS AFTER INTIATION S COMPLETION OF 

(•THIS TEST CHECKS THAT AN INTERRUPT FROM RKll OCCURS AFTER 
>»A SEEK TS INITIATED WITH 'IDE' BIT SET, AND THEN A SECOND 
l»INTERROPT OCCURS AFTER THE SEEK IS DONE. IT ALSO CHECKS THAT 
(♦AFTER THE FIRST INTERRUPT 'SCP' BIT IS NOT SET, WHEREAS AFTER 
J»TKE SECOND INTERRUPT 'SCP' IS SET. 

f»IHIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC. 
I (••••*••»•«»»*•«•••••••••»••••«•«»•••*•••*•«•••«•«••«•••«»«»••»« 

TSTISI SCOPE 

;>00 5 ITERATIONS 
rGO, DO CONTROL RESET 
STHIS IS A CALL FOP THE 'CNTRL- 
; RESET' ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER fl CERTAIN TIME 
;IF THE 'CNTRL PDY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
>PC WHERE 'CNT. RESET' IS LOCATED, 
;THIS IS A VERY BASIC ERRfc IF IT 
(OCCURS GO BACK TO TEST 10 



HOV tSflTIMES 
CMT.PFSET 



HOV 
MOV 
JSR 
ERROR 

MOV 
MOV 
MOV 
BIS 
MOV 

WAT. INT 



RKCS,R0 
DPIVAD,RRKDA 
PCDRESET 
26 

NKVECRI 
• J$, (RD* 
•340, (Rl) 
•40,aRKDA 
•t 11,8R0 
300 



MOV 
MOV 
ERROR 



• BAOI'lT,SPKVEC 
l>P>j,SREG0 



»AOPFS THE DRIVE 

(GO, DO DRIVE RESET 

;R/W/S RDY DIDN'T SET AFTER DOING 

(ABOVE DRIVE RESET 

(SET UP VECTOR ADRES FOR RKll INTES 
(SET UP PSW ON INTERRUPT 
(ADRES CYLINDER »1 
(SEEK, GO WITH IDE SET 
IIMT FOR THE DRIVE TO 
(INTERRUPT AFTER ADRES HAS RECVD 
CAITIHG TIMF» 1.4 MS FOB 11/20 
(280 US FOB 11/45 

(ERROR, IF INTERUPT DID HOT OCCUR 
(BY NOW 

(RFSTORE UNEXPECTED RKll INTERRUPT 
(GET RKCS 

(INTERRUPT DID NOT OCCUR AFTER 
-SEEK WAS INITIATED WITH IDE SFT 
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OK, IF RKll INTWRUPTED TO THIS 
RESTORE STACK POINTER (FROU RKU INTERRUPT) 
RESTORE STACK POINTER (PROM 
MAT. INT) 

SET UP NEW VtCTOP AOREB TOR RKU 

15 SCP CLEAR 
reSf BRANCH 
GET PKCS 

SCP SET BEPORE SEEK TO LAST 
CYLINDER WAS DOHE 
WAIT FOR DRIVE TO INTERRUPT 
AFTER SEEK MAS COMPLETED 
WAITING TIME"190 HS FOR ll/2e 

16 HS FOR U/45 
IT'S AN ERROR IF BY THI8 TIME 
INTERRUPT HAS NOT OCCURCREO 

rGO GET RKCS, ERr DS 
PKll DID NOT INTERRUPT AFTER SEEK (TO 
LAST CYLINDER) WAS DONE WITH IDE BET 

OK, IF BKll WTERUPIED TO THIS AFTER 
SEEK HAS COMPLETED. RESTORE 
STACK POINTER (FROM RKll IMTEBRUPI) 
RESTORE STACK POINTER (FROM 
WAT. INT) 

RESTORE RKll INTERRUPT VECTOR ADRES 
FOR UNEXPECTED INTERUTS 
DID SCP BIT SETT 
YES, BRANCH 
GET RKCS 

SCP DID NOT SET AFTER RKU IHTERRUPTED 
INDICATING SEEK HAS DONE 
GET RKDS 

MASK NON-ID BITS IN RKDS 
CORRECT ID BIT! IN RKDST 
YES, BRANCH 

PUSH DRV ADRES ON THE STACK 
GO, SHIFT HIGHT DRV • 
GET EXPCTD DPV « 
PUSH ID BITS ON THE STACK 
GO SHIFT THEM RIGHT 
POP THE RECVD ID BITS 
WRONG ID BITS HERE RECVD IN 
RKDS AFTER SEEK WAS DONE (INTRUPT 
MODE). 'EXPCT' INDICATES THE DRIVE 
I THAT SHOULD HAVE BEEN IN THE 
ID BITS, 'PECVD' INOXCAIES THE 
DRIVE I THAT HAS RECVD IN THE ID BITS 



3819 




000403 










9$^4 




014340 


022626 






34 1 


C 


CfiP ) + r (SP ) * 




















014342 


022636 










(5P) f , C SP) 


3813 
















3824 


014344 


012777 


0t44lta 


1650 30 




MOV 






014352 


033710 


030000 






BIT 


1200001 f P0 




014356 


001403 










41 




014360 


01 1037 


001 1 63 






MOV 


#R0r tPCG0 


3828 


014364 


104076 








ERROR 




3829 
















38 30 






056 70fa1 




411 


AT, I 


- 


3831 
















3833 


































014 373 


0137 77 












3815 
















38 36 


014400 


004737 








JSR 


PC»GT3RG 




014404 


104077 








ERROR 


77 


'„ 


















014406 


000401 








BR 


9l't2 


384w 


014410 


022626 








CMP 


I Br VOrJT 


































»«« 1 


at 441 2 


022626 








CMP 




















3845 


14414 


J777 
012 


004526 


_ 

164760 






# BAD I NT r APKVEC 


3846 


















III 4412 


033710 


0^0000 






BIT 


§20(900 r PR0 


3848 




an 1 tfia l 








nur 


6t 


3849 


all41fl 


?«4flS1 


162 






unu 




3850 




104033 










93 


3851 
















ia«? 


014436 


017701 


164664 




6(1 








01 4442 


042701 


01 7777 






BIC 


#17777 f Rl 


ia<4 






001 350 






CMP 




3855 


01 4452 


001 414 








BEQ 


71 


3856 
















3857 


PI 4454 


01 3746 


001 350 






MOV 


DRX VADf * C SP ) 


3858 


01 4460 


004737 


021 1 06 






JSP 


PC # SHFTKT 


3859 


f\ 4464 


013637 


001 162 






MOV 


(SP)>r 




014470 


0101 46 












3861 


01 4473 


004737 


021 106 






JSP 


PC r SHFTRT 


3662 


014476 


012637 


001 164 






MOV 


(SP) SREQl 




014503 


104047 








ERROR 


47 


3B64 
































3866 
















3867 
















3868 
















3869 
















3870 


014504 








7»l 






3871 


014504 


013746 


000340 






MOV 


•l40r-C8P) 


3873 


014510 


013746 


014516 






MOV 


•64Sr-C8P) 


3873 


014514 


000003 








f»TI 




3874 


014Slb 








6411 
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3175 


•*14516 


104413 




3876 


014520 


013777 


001 350 


1877 


014536 


B3J777 


150000 


3B7B 


014534 


001 404 




1879 


014516 


017717 


1645A4 


3NI!0 


014544 


104050 




IBfll 








)P82 








3n83 








38X4 


P14546 


B2371t) 


000200 


1885 


014552 


001403 




IBRb 


014554 


011037 


001 162 


3997 


01 4560 


104100 




3898 








3889 








3990 








3991 








3892 








1993 








3894 








3895 


014562 


000004 




3896 


014564 


104413 




3897 








3898 








3999 








3900 








3901 








3902 








39CT3 








3904 








39H5 








1900 


014566 


104421 




3907 








19(18 








3909 


01 4570 


01 3700 


001 312 


3910 


014574 


B117B2 


001340 


39n 


014600 


01 17(14 


Btfl 336 


1912 


014604 


0137HI 


001 350 


191 1 


014610 


052701 


0U0t41 3 


1*1 4 


014614 


812777 


177600 


1915 


014622 


010112 




m5 


014624 


013714 


013240 


3917 


<^1 4630 


01 170S 


0t)1402 


3918 


014634 


012725 


014672 


19i9 


v*1 464ia 


012715 


000340 




014644 


012710 


000105 


ISJt 


014650 


104420 


127710 


io?7 














3)74 










014654 


H17777 


H.'4526 


3M7t> 


fl 4662 


011H17 


(«tM 162 


lli? 


b<l 4666 


104I1M 












U29 


dt »n70 


Hl1i14l"4 




39 1i» 


("! 4672 


E1?36Jh 





MOV 
BIT 
BEO 
MOV 
ERROR 



CMP 
8EQ 
MOV 
ERROR 



DRIVAD,8RKnA 

*!6B000,aRKDS 

8$ 

•PKDS,tREG0 
50 



t200,»R0 
TST37 
^R0,SREG0 
100 



;r.O DO CONTROL RESET 
JADRES THE DRIVE 

;DID CHTRL RESET CLEAR DRIVE IF BITS! 
)YES, BRANCH 
;GET RKDS 

jCONTROL RESET DIDN'T CLEAR THF 

IDRIVE ID BITS (13-15) IN RKDS 

MAS SCP BIT CLEARED BY CNTRL RESET? 
nYES, EXIT 
(GET RKCS 

(CNTRL RtSET Din HOT CLEAR SCP BIT 



( I *••»•••»•••••»•••••»«••••»•»»•••»#>»»••*«*«**•«*«*•••••*•«»*•«• 

I 'TEST 37 CHECK THAT WITH IDE SET RKll INTERRUPTS WHEN READ IS DOHE 

(•THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE 
l«WITH IDE BIT SET, RKll INTERRUPTS WHEN THE FUNCTION IS CO«PLETED 
(•FUNCTION USED IN THIS TEST IS READ. 

tt* 



T«T37( 



SCOPE 
CNT, RESET 



T3T.SIN 



MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
MQV 
MOV 

WAT. INT 



RKCS,R0 

RKDA,R3 

RKBA,R4 

DRIVA0,R1 

•llfRl 

••300,»RKMC 

R1,«R2 

«0UTBUF,«R4 

RKVECRS 

• 1*,(R5)4^ 

•140, (R5) 

•105, 8R0 

,127710 



MOV 

MOV 
EBRDR 



•BADINT,8RKVEC 

<Re,tREG0 

101 

f SP) + , (SP)-» 



(GO. DO CONTPOL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
(RESEI' ROUTINE. A CONTROL RESET 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL ROY' DOES NOT SET 
IAN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
jPC WHERE 'CNT. RESET' IS LOCATED. 
(THIS IS A VERY BASIC ERRi IF IT 
(OCCURS GO BACK TO TEST 10 
[CHECK IF SIM IS SET, IF SET 
(DO DRIVE RESET 10 CLEAR II 



JSF.T BITS FOR SEC 13 

(READ 200 (OCTAL WORDS) 

(FHOM THIS DISK ADPES (CYL 0, SFC 131 

(INTO THIS BUS ADPES 

(SET UP VECTOR ADRES FOR RKll TO INTOIIPT 

(SET PSW ON INTEPUPT 

[PKAD. GO, IDE SET 

(WAIT FOR RKll TO INTERRUPT ON 

(COMPLETIOM OF READ 

(WAITING TIME" 137 MS FOR 11/20 

[67 us FOP 11/45 

(RESTORE UNEXPCTEn IMTEPPUPT VECTOF AOSBS 
[T.ET RKCS 

[PKll DID NOT INTFPRUPT SFTFIP PKAO 
[WAS DOVE, nr. BIT SET. 

[OK, IF BKll INTCHPUPTtD TO THIS 
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3932 


014674 






3933 


014676 


012777 


004526 


3934 








3935 


01 4704 


094737 


031 350 


3936 








3937 


014710 


1 04P36 




3939 








3939 


014713 


063701 


000005 


3940 


014716 


0201 1 3 




3941 


014730 


001 495 




3942 


014733 


010137 


001 163 


3943 


014726 


011237 


001164 


3944 


0147J2 


104040 




3945 








3946 


014734 


004737 


031234 


3947 








3948 


01 4740 


] 04041 




3949 








395a 








3951 


014742 






3952 


014742 


012746 


000340 


3953 


01 4746 




01 4754 


3954 


014752 


G900(902 




3955 


014754 






3956 


014754 




033640 


3957 


014760 


001 406 




3958 


014762 


012737 


033640 


3959 


014770 




001 164 


3960 


014774 


104042 




3961 








3962 








396 3 








3964 








3965 








3966 








3967 








3968 








3969 








3970 








3971 








3972 








397 3 




000004 




3974 


015000 


1 044 1 3 




3975 








1976 
















3978 








3979 








3980 








3981 








3982 








3983 








3984 


015003 


104421 




3985 








3986 


015004 


012737 


015k)4U 



CMP 
MOV 



ERROR 

ADD 
CMP 
BEO 
MOV 
HOV 
ERROR 

JSR 



ERROR 41 



•RESTORE STACK POINTER (FROM RKU INTERRUPT) 
tSP) + .(5P)+ .-RESTORE STACK POINTER (FROM WAT. INT) 

•BADIHT.RRKVEC jRESTORE UNEXPECTED RKU INTERRUPT 

$ VECTOR AOBES 
PC.CHKER fCHECK IF ANY BIT IN RKER IS SET, 

fIF XESf RETURN HERE. 
36 JRKER SET ON DOING READ FROM SEC 0. 

t CYL 13 IN INTERRUPT MODE 
t5,Rl tRKOA SHOULD HAVE INCREMENTED TO THIS 

Ht,«R2 ;DIO RKOA INCREMENT CORRECTLY? 

2t I YES BRANCH 

Rl,«ReG0 ;GET EJCPCTD RTOA 

fR3>(RECl JCET RKDA RECVO 

40 :RKOA INCREMENTED WRONG ON DOING 

;A READ ON CYL 0> SEC 13 
PCCHKNC SCHECK THAT PKHC OVERFLOWED TO 0. 

;IF NOT RETURN HERE. 
jRKWC DIDN'T OURFLO AFTER 
J A READ OF 200 WORDS 



MOV »l49r-tSP) 

NOV *64tf(SP) 

RTI 

6411 

CMP tOUTBUF'»400,«R4 (DID RKBA INCREMENT CORRECTLY? 

BEO T3T40 MYESr EXIT 

HOT «OOTBUF'«'400rSREG0 I SET EXPCT RKBA 

MOV •R4,tReGl >GET RKBA RECVD 

ERROR 42 >RKBA DID NOT INCREMENT CORRECTLY 

> AFTER A REAP OF 200 WORDS 

t t •••••»••••»*•••••••••»••••«••••••••••*••••«**•••••*••••*••***** 

|«TEST 40 CHECK THAT RKU INTERRUPTS AT BR5 ONLY 

t»THIS TEST CHECKS THAI RKU CAN ITERRUPT AT BR5 ONLY. IF IT 
>»INTERRUPTS AT A LEVEL HIGHER THAN BR5 AN ERROR IS INDICATED. 
)»IF IT DOES NOT INTERRUPT AT BPS ORLOHER THEN ALSO AN 
r»ERROR IS INDICATED. IF FOR SOME REASON THE INTERRUPT 
(•LEVEL IS CHANGED FROM BR5 , THEN CONTENTS OF RKPRI WILL 
;«HAVE TO BE CHANGED ACCORDINGLY AND STILL TEXT HILL 
|»CHFCK FOR THIS BR LEVEL. 

; I •••»•»»•••••••»••••••*•••••••••••»••«••••««••»«••»•*•»•*«••••«• 

TST40I SCOPE 

CNT. RESET ;G0, DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTBL- 
JRESET* ROUTINE. A CONTROL RESET TS 
> ISSUED AND AFTER A CERTAIN TIME 
J IF THE 'CNTRL ROY* DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
«THE PC IN ERROR MESSAGE IS THE 
>PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERRfc IF IT 
JOCCURS GO BACK TO TEST 10 

TST.SIN JCHECK IF SIN IS SET» IF SET 

lOO DRIVE RESET TO CLEAR IT 

WOV «1»,»LPERR sSET RETURN ACRES FOR LUPING 
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jON ERROR (SW 9) 



3987 








3988 


015012 


013700 


001332 


3989 


015016 


013777 


001350 


3990 


015024 


012701 


000007 


3991 


015030 


012702 


000340 


3993 


015034 


013703 


001400 


3993 








3994 








3945 








3996 


015040 


013704 


001402 


3997 


015044 


012724 


015153 


3998 


015050 


012714 


000340 


3999 


015054 


010246 




40»0 


015056 


012746 


015064 


4001 


01^062 


0O0OM2 




4003 


015364 






4003 


015464 


012710 


000100 


4004 


015070 


012705 


177760 


4005 


015074 


005205 




4006 


015076 


001 376 




4i«07 


015100 


020203 




4»08 


015102 


003H05 




4(909 








4010 








40U 


015104 


0101 37 


00U63 


4t*12 


015110 


011037 


001164 


4013 


01SU4 


104103 




4914 








1015 








4«l6 


015116 


005010 




1017 


015120 


062702 


177740 


4018 








1;'19 


015124 


005301 




4i«70 


015136 


001344 




4»»71 








40?2 


015130 


012777 


004536 


tUli 








4^24 


0151 36 


012746 


000340 


4025 


015142 


012746 


015150 


4t)26 


015146 


000002 




4i»27 


015150 






4028 


015150 


000414 




4029 








4»)0 


015152 


022626 




4031 


015154 


012777 


004536 


4032 






4033 


015162 


020203 




4U34 


015164 


0;i3754 




4035 








4036 








4037 


015166 


010137 


00U63 


4038 


015172 


0) 1H37 


001 164 


4039 


015176 


104104 




4040 








4041 








4042 









64tl 
3*1 



HOV 


RKCS>R0 




MOV 


DRTVAD'RRKDA 




MOV 


*7,R1 


;PRI0R1TY LEVEL 7 


MOV 


4340, R2 


;BR LEVEL 7 FOR PSH 


HOV 


RKPRI, R3 


INOTE, IF RKU INTERRUPT LEVEL IS 






SCHANGED FROM 5 TO ANY OTHER LEVF L 






;THEN CHANGE CONTENTS OF 'RKPRI' 






I ACCORDINGLY 


MOV 


RKVEC,R4 




MOV 


«3I,(R4)+ 


JSET UP ADRES FOB RKU TO INTERUPT 


MOV 


•340, (R4) 


tSET UP PSK ON INTERUPT 


HOV 


R2,-(SP) 


»SET PROCESSOR PPIOPIIY LEVEL 


HOV 


•41, -(SP) 




RTI 










> INDICATED BY R2 


HOV 


•100, >R0 


ISET THE IDE BIT 


HOV 


••20, RS 


IWAIT FOR THE RKU INTERRUPT 


INC 


R5 


(WAITING TIMEa78 US FOR 11/20 


BNC 


.-2 


»13 US FOR U/45 


CMP 


R2,R3 


JWAS THE CPU PRIORITY LEVEL LESS THAN 


BGT 


2t 


;THE RKU LEVEL? IF YES, RKU 






fSHOULD HAVE INTERRUPTED. ERROR, 






MF IT DID NOT 


MOV 


R1,IREG0 


(GET CPU BR LEVEL 


HOV 


«R0,*REG1 


(GET RKCS 


ERROR 


103 


> THOUGH CPU LEVEL WAS LESS THAN 






>rm RKU LEVEL (5), RKU DID NOT 






(INTERRUPT 


CLR 


0R0 


(CLEAR RKCS 


ADD 


f-40,R2 


(DECREASE THE PRIORITY LEVEL (FOR 






(CPU) BY I 


DEC 


Rl 


(CPU HILL B AT THIS LEVEL 


BME 


IS 


(LUP BAK i CHK FOP THIS BR LEVEL. 






(DONE WITH CHKING FOR ALL LEVELS. 


MOT 


(8ADINT,»RKVEC 


(REStORC UNEXPECTED RKU INTERRUPT 






(VECTOR 


MOV 


•340, •C8P) 




HOT 


•64$, -(SP) 




RTI 






BR 


TST41 


; (EXIT, TO NXT TST 


CMP 


CSP)+, (SP)+ 


(RESTORE STACK POINTER 


HOV 


•badint,»rkvec 


(RESTORE UNEXPECTED RKU INTERRUPT 






(VECTOR 


CMP 


R2,R3 


(IF THIS INTERRUPT OCCURED WHEN 


BLE 


2t 


(CPU LEVEL WAS LESS THAN THE 






(RKU PRIORITY LEVEL (5) THEN IT IS 






(OK. IF NOT SO. ERROR 


MOV 


Rl >IRES0 


(GET CPU BR LEVEL 


HOV 


eRa.f REGi 


(GET RKCS 


ERROR 


1^4 


(RKU INTERRUPTED WHEN THE CPU 



(LEVEL (AS POINTED BY Rl) WAS 
(HIGHER OP S«ME AS THE PKll 
(LEVEL (5) 
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tao BACK (. CHK THE NXT LEVBI. 



4043 


015300 


000746 






4044 










4049 










4046 










4047 










4048 










4lii49 










4090 










*Ml 










4093 










4053 


015302 


000004 






4054 


015304 


104413 






4055 










4056 










4057 










4050 










4059 










4060 










4061 










4062 










4063 










4064 


015306 


104421 






4065 




■ 






4066 


015210 


013/01 


001 350 




4067 


019314 


052701 


01 4533 




4060 










4069 


015220 


012777 


177377 


164106 


4070 


015236 


012777 


033240 


1 64102 


4071 


015334 


•101 77 


164100 




4072 










4073 


015240 


01X777 




164064 


4074 










4075 


019346 


005P03 






4076 


015290 


105777 


164056 




4077 


019354 


100410 






4070 


015356 


005202 






4079 


015260 


001 373 






4080 










4081 










4082 


01 5362 


17717 


164046 


001 166 


4083 


015270 


004737 


020716 




4084 


015274 


104002 






4085 










4086 










4087 










4088 


019276 


032777 


O400OW 


1 64034 


4089 


019304 


001006 






4090 


019306 


004737 


020716 








012737 




00 1 1 OD 


4093 


019320 


104109 






4093 










4094 


019333 


B22777 


140204 


164003 


4095 


015330 


001403 






4096 


015333 


0047 37 


030716 




4097 


•15336 


104106 






4098 











BR 



3t 



t*TESI 41 



SIHULATE t CHECK 'OVR' ERROR 
I •THIS TEST BlHUtATES OVtRBUH ERROR »N0 CHECKS IF THE OVR 
j«BIT IN RKER GETS SET. THEN IT IS CliEARED USI0C CMTRU RESET 
■ •(. CHKKEO THAI IT HAS CLEARED. OYR COHOITION IS SIMULATED 
|»BT TRtmC 10 READ 401(0CTAL) WORDS rPOH LAST CTLlHDERt J12) , 
>«LABT SECTOR (13). SURFACE 1. 



SCOPE 
CNT. RESET 



TST.SIN 



NOV 
BIS 

NOV 
NOV 
HOT 

NOV 

CLP 

TSTB 

BHI 

INC 

SHE 



NOV 
JSP 
ERROR 



BIT 
BNE 
JSR 
NOV 
ERROR 

CHP 
BEQ 
JSP 
ERROR 



DRIVAD»R1 
*t4533«Rl 

(•401,8RKHC 

•OUTBUFtORKBA 

Rl.HIIKDA 



R3 

•RKCS 
38 
R3 
18 



•RKWC.8RE63 

PC>CT3R0 
3 



140000. 8RKER 
31 

PCrST2RG 
•40000, tPECa 
105 

I14O3O4.0RKCS 
48 

PCrSVZRO 
106 



;GOr DO CONTROL RESrT 
ITHIS IS A CALL FOR THE 'CHTRL- 
IRCSCT' ROUTINE. A CONTROL RESET IS 
> ISSUED AND AFTER A CRRTAIN TINE 
HP THE 'CNTRL ROY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
SPC NHERE 'CNT. BESET' IS LOCATED. 
ITHIS IS A VERY BASIC ERR<> IF IT 
^OCCURS 60 BACK TO TEST 10 
JCHECK It SIN IS SET, IF 
JSET, DO DRIVE RESET TO CLR II 
I GET ADRCS OF DRIVE 
ISET BITS FOR LAST CYLINDER (312), 
ISUR 1, LAST SECTOR (13) 
(READ 401 HORDS 
{INTO THIS HEHORT BUFFER 
IFRON THIS DSK ADRES, LAST CYL, 
ILAST SEC, SOPFACE 1 
(READ, GO 



IDID CMTBL ROY SET? 
lYES, BRANCH 
>N0, HAIT FOR IT 

I IF HAITCO LONG, REPORT ERROR HCSSAGE BECAUSE 
>OVR SHOULD HAVE SET HE CAUSING 
ICNTRL RDY TO SET BY NOW 

JCO, GET RKCS, ER 

tCNTRL RDY DID NOT SET AFTER DOING 
>AN OVR READ, HE SHOULD HAVE OCCURED 
(SETTING CNTRL RDY (HE BECAUSE OF 
lOVR CONDITIONS) 
;DID OVR BIT SET IN RKEPf 

I GET RKCS, CR 

;tkis bit (OVR) did not set, 

lOVP ERROR BIT DID NOT SET IN RKER 

ION SIHULATING OVR CONDITIONS 

>OID HE ERR SET WHEN OVR SET IN RKERf 

;TES, BRANCH 

I GET RKCS, ER 

I HE OR ERR BIT DID NOT SET IN RKCS WHEN 
IAN OVR ERROR HAS SIMULATED 
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ERROR 



4099 








4100 


015340 


104413 




4101 








4103 








4103 








4104 








4109 








4106 








4107 








4108 








4109 








4110 


015342 


004737 


021264 


4M1 








4112 


015346 


li«4102 




4113 








4114 


015350 


0H4737 


021310 


4115 








4116 


015354 


104102 




4117 








41|8 


015396 


004737 


021412 


4119 


015)62 


104026 




41}0 








4121 








4122 








4123 








4124 








4125 








4126 








4127 








4138 








4129 








41)0 


015364 


000004 




41)1 


015366 


104413 




4132 








4133 








4134 








41)5 








4136 








41)7 








4138 








41)9 








4140 








4141 


015370 


ia443l 




4142 








414) 


•15372 


01 17H1 


031)30 


4144 


015)76 


01 )777 


001 350 


4149 








4146 


015484 


(112777 


00301 1 


♦ 147 








4148 


015412 


l«4414 




4149 








4150 








4151 








4152 








4153 








41 J4 


015414 


»)271l 





CNT. RESET 



JSR 


PC'«CHKECLR 


ERROR 


102 


JSR 


PC»CHKCCLR 


ERROR 


103 


JSR 


PCDRESET 


ERROR 


26 



(CLEAR OVER. ERR, HE BITS 
(GO, DO CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
(RESET' ROUTINE, A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL ROY' DOES NOT SET 
(AN ERROR IS REPORTED. MOTE THAT 
(THE PC IN ERROR MESSAGE IB THE 
(PC WHERE 'CNT, BESET' IS LOCATED. 
(THIS IS A VERY BASIC CRR6 IF IT 
(OCCURS CO BACK TO TEST 10 
(CHCCK IF 'OVR' BIT MAS CLEARED BY 
(COH,REtET> IF NOT RETURN HERE. 
(CNTRL RESET DID NOT CIiEAR OVR 
(BIT IN RKER 

(CHECK IF 'ERR' t 'HE' BIT GOT CLFARED BY 

(CON, RESET, IF NOT RETURN HERE. 

(CNTRL RESET DID NOT CLEAR 

(HE OR ERR BIT IN RKCS. 

(GO DO DRIVE RESET 

)R/N/S RDY DIDN'T SET 

(AFTER THE ABOVE DRIVE RESET 



12 SIMULATE 6 CHECK PGE ERROR 

{•THIS TEST SIMULATES 'PROGRAMMING ERROR' I CHECM IF IT IS 
(•DETECTED BY POE BIT IN RKER. THEN A CNTRL RESET IS DONE (. 
(•IT IS CHEC«D IF PGE BIT WAS CLEARED. IT IS ALSO CHECKED IF 
(•THE 8BTTINC t CLEARING OF PGE BIT SETS i. CLEARS. HE, ERR 
(•BITS IN RKCS. 



SCOPE 
CNT, RESET 



MOV 
MOV 



RKER, PI 
DRIVAD,8RKD« 



MOV 42011, 8RKCS 

CNT. RDY 



(CO, DO CONTROL RESET 
[THIS 18 A CALL FOR THE 'CNTRL- 
! RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TINE 
(IF THE 'CNTRL RDY' DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR HES8A0C IS THE 
(PC WHERE 'CNT. RESET* IS LOCATED, 
(THIS IS A VERY BASIC ERR6 IF IT 
(OCCURS GO BACK TO TEST IB 
(CO CHECK IF SIN IS SET, IF 
(SET DO DRIVE RESET TO CLR IT 

(ADRES THE DRIVE, CYLINDER 8 

(SEEK, GO WITH FMT SET 
(THIS IS A PGE SIMULATION 
(THIS IS A CALL FOR 'CN.RDY' 
(ROUTINE WHICH WAITS FOR CNT 
(RDY TO SET. IF CNTRL RDY DOES 
(NOT SET WITHIN 983 MS/ 11-20 
)(I76 MS FOB 11-45 WITH BIPOLAR) 
(AN ERROR rS REPORTED 
IDID PGE BIT IN RKER SETT 
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SCO 00*4 



4195 


015420 


001006 


41S6 


015422 


012737 


4157 


0154)0 


004737 


4158 


015434 


104109 


415» 






4160 






4161 






4162 


BtS436 


022777 


4163 


01S444 


00140) 


4164 


01S446 


•04737 


4169 


015452 


104106 


4166 






4167 






4168 


019494 


104413 


4169 






4170 






4171 






4172 






4173 






4174 






4175 






4176 






4177 






4179 


015456 


0047)7 


4179 






4180 


015462 


104102 


41R1 






4182 


015464 


004737 


1193 






4184 


015470 


104102 


4185 






4186 






4187 






4188 






4189 






4190 






4191 






4192 






4193 






4194 






4195 






4196 


015472 


000004 


4197 


015474 


10441 3 


4198 






4199 






4200 






4291 






4202 






4203 






4204 






4205 






4206 






4207 


015476 


104421 


4208 






4209 


015500 


005002 


4210 


015502 


013700 



iSI 



2*1 



BME 
HOV 
JSR 
ERROR 



CNP 
BEO 
JSR 
ERROR 



It 

14000, IRCG3 

PC>6T2RC 
10S 



•142213>6RKCS 
2t 

PCfGT2Re 
106 



CNT. RESET 



JSR 



PCCNKECIR 



ERROR 102 



311 



PCfCHKCCtR 



ERROR 102 



;YES, BRANCH 

STHIS BIT IN RKER (PGE] DID WOT SET 

;G0 SET RKCS, ER FOR HESAOE 

JPGE BIT DID NOT SET IB RKER 

JOH SIMULATION OF PGE CONDITION 

ISREG2 CONTAINS THE RKER BIT (PGE) 

JTHAT SHOULD HAVE SET, 

;DIO HE i ERR BITS SETT 

;YCS, BRANCH 

;G0, GET RKCS> ER 

I HE OR ERR BIT DID NOT SET WHEN 

I PGE SET IN RKER. 

;CLEAR PGE, HEr ERR BITS 

:G0, DO CONTROL RESET 

JTHIS IS A CALL TOR THE 'CNTRL- 

I RESET' ROUTINE. A CONTROL RESET IS 

> ISSUED AND AFTER A CERTAIN TIME 

jir THE 'CNTRL ROT' DOES NOT SET 

(AN ERROR IS REPORTED. NOTE THAT 

>THE PC IN ERROR MESSAGE IS THE 

»PC WHERE 'CNT. RESET' IS LOCATED. 

rTHIS IS A VERT BASIC ERRh IT IT 

fOCCORS GO BACK TO TEST 10 

JCHECK IF 'PGE' BIT GOT CLEARED BY 

I CONTROL RESET. IF HOT RETURN HERE. 

>CMTRL RESET DID NOT CLEAR 

(PGE BIT IN RKER 

JCHECK IF 'ERR' BITGOT CtBAREO BY 
;CON. RESET, IF NOT RETURN HERE. 
I RKCS BITS HE OR ERR DID HOT 
JGET CLEARED BY CNTRL RESET 



f ;»•»»»»••••••••»••••»••♦•••#»••••*»••••••♦»#•♦•»•••••••••»•••♦•• 

;*TEST 43 SIMULATE & CHECK NXH ERROR 

(•THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR (NXH) AND 
(•CHECKS IF IT IS DETECTED BY NXM BIT OR RKER. LOCATION 760000 
t»IS REFERENCED t IT HAPPENS TO BE A NON EXISTENT LOCATION 
I»(rOR DIAGNOSTIC PURPOSES LIKE THIS). IT IS ALSO CHECKED 
l«IF HE 6 ERR BITS ALSO SET AND ALL 3 BITS CAN bt CLEARED 
!• BY CONTROti RESET. 
II ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••«**•• 

rsT43l SCOPE 

CNT. RESET >G0, DO CONTROL RESET 

(THIS IS A CALL FOR THE 'CfTRL- 
IRESEI' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL ROY* DOES NOT SET 
(AN ERROR IS REPORTED. NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'cm. RESET' IS LOCATED. 
(THIS IS A VERY BASIC ERRt IF IT 
(OCCURS GO BACK TO TEST 10 
TST.SIN (GO CHECK IF SIN IS SET 

(IF SET DO DRIVE RESET TO CLR IT 



CLR 

MOV 



R2 

RKCSfRB 
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4211 


015506 


012777 


177777 


4212 


015514 


012777 


160000 


471 3 


01S523 


013777 


001350 


4214 


015530 


012710 


000067 


4215 


015534 


105777 


163572 


4216 


015540 


100410 




42|7 


015542 


005202 




4318 


015544 


001 37) 




4219 


015546 


004737 


030716 


4330 


0ISS92 


017737 


163556 


4221 


015560 


104113 




4333 








4233 








4234 








4235 


015562 


032777 


002000 


4226 


015570 


001006 




4227 


015572 


004737 


020716 


4338 


015576 


012737 


002000 


4229 


019604 


104105 




1330 








4231 


015606 


022710 


140366 


4232 


015613 


001403 




4233 


015614 


004737 


020716 


4234 


015620 


104106 




4235 








4336 








4217 


019623 


10441) 




42)8 








4339 








4340 








4241 








4243 








4343 








4344 








4345 








4346 








4247 


015624 


0047)7 


031264 


4248 








4249 


015630 


104103 




42S0 








4251 


015632 


904737 


021310 


4252 








»253 


015636 


104102 




4254 








42S'i 


01564«) 


.104737 


031344 


42'i6 








4257 


015644 


104916 




4258 








4259 








4260 








4261 








4262 








4263 








426* 








4265 


"15646 


000(1144 




4266 


015650 


10411 } 





MOV 

MOV 

HOV 

HOV 

T5TB 

BMI 

INC 

BNE 

JSR 

MOV 

ERROR 



BIT 
BNE 
JSR 
MOV 
ERROR 

CMP 
BEQ 
JSR 
ERROR 



•-IflRKHC 

•160000, SRKBA 

DRIVAD.SRKDA 

I67»SR0 

■ RKCS 

2« 

R2 

II 

PC>GT2Ra 

•RKHC,tREG2 

113 



t20OS,»RKER 
)l 

PCOTZRG 
13000, •REG2 

10S 

1140266, RR0 
48 

PC,6T2Re 
106 



CNT. RESET 



16)620 MOV t-lflRKHC (WRITE: CHECK 1 HORD 

163614 NOV 1160000, SRKBA (AT THIS BUS ADRES 

16)610 HOV DRIVAD.SRKDA (WITH THIS DISK ADRES (CYL 0, SEC 0) 

(WRT CHK, GO, HEX BITS SET 
(DID CNTRL RDT SET AS A RESULT OF Htt 
(YES, BRANCH 
(WAITED LONG ENOUSHt 
(IF NOT LUP SAK 6 WAIT 
(GET RKCS, BR 
(GET RKWC 

(CNTRL RDY DID MOT SET ON DOING 
(A WRT CHK WITH A NXM LOCATION, 
(THIS HE SHOULD HAVE SET THE 
(CNTRL RDY BIT IN RKCS 
(DID NXM BIT IN RKER SElf 
(YES, BRANCH 
(GO GET RKCS« RKER 

(THIS BIT (NXM) DID NOT SET IN RKER 
(NXM BIT DID NOT SCT IN RKER ON 
(SIMULATING NXH CONDITION. 
3*1 CMP 1140266, RR0 (DID HE 6 ERR BIT SETT 

(YES, BRANCH 

ISO, GET RKCS, RKER 
(HE OR ERR BIT DID NOT SCT WHEN 
(NXM ERROR MAS 8IHULATC0 
(CLEAR NXM, HE, ERR BITS 
(GO, DO CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
: RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CHTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED, NOTE THAT 
(THE PC IN ERROR MESSAGE IS THE 
(PC WHERE 'CHI. RESET' IS LOCATED, 
(THIS IS A VERY BASIC ERR6 IF IT 
(OCCURS GO BACK TO TEST 10 
[CHECK IF 'NXM' BIT GOT CjLEARED BY 
(CON, RESET, IF NOT RETURN HERE. 
(CNTRL RESET DID NOT CLEAR 
(NXM BIT IN RKER 

(CHECK IF 'HE' i 'ERR' BITS GOT CLEARED 
(BY CON. RESET, IF NOT RETURN HERE. 
(CNTRL RESET DID NOT CLEAR 
;Ht OR ERR BIT IN RKCS. 
(GO CHECK IF R/W/S ROY IS SET & 
(WAIT FOR IT. SKIP ERROR IF IT IS SFI 
IR/W/S RDY IS NOT SET 

( ,■••••••••••*•••«*••«»»«•*•••••«•••••••••••••••«•••*»•«*••••»•••• 

(•TEST 44 SIMULATE S CHECK NXD ERROR 

(•THIS TEST SIMULATES NON-EXISTENT DISK ERROR 6 CHECKS IF 
(•IT IS DETECTED PY NXD SIT OF RKER. IF ALL EIGHT ARE PRESENT 
(•THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT BE DONE. 
; (•••*•••••*•••••••«»«>»•••>•••••*•*•«»•«••«»•••••«•••«*•*•«••»•• 

TST44: SCOPE 

CNT. RESET (GO, DO CONTROL RESET 



JSP 


PCCHKECLR 


ERROR 


102 


JSR 


PCCHKCCLR 


ERROR 


102 


JSP 


PCTSTRWS 


ERROR 


16 
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SCO t99f, 



4367 
4268 
4269 
427a 
4271 
4272 
4273 
4274 
427S 



4276 


015652 


104421 




TSTaSm 




4277 






001 332 






4278 


015654 


01 3700 


MOT 


RKCS»R0 


4279 


015660 


012703 


160000 


HOV 


>160000rR3 


42Aa 












4281 


015664 


010277 


163450 ISl 


HOT 


R2« SRKDA 


4282 


015670 


104417 


000001 


DEIiAV 


>1 


4283 












4284 


015674 


105777 


163436 


I8TB 


0RKOS 


4285 


015700 


100004 




BPL 


2t 


4286 


015702 


063702 


160000 


ADD 


t-20000,R2 


1287 












4288 


015706 


001366 




RNE 


It 


4289 












4290 


015710 


000435 




BR 


TST4S 


4291 












4292 


015712 


013710 


000015 3Sl 


HOV 


tl5,aR0 


4293 


015716 


104417 


000106 


DELAY 


rl06 


4294 












4295 


015722 


105777 


163402 


T8TB 


•RKER 


4296 


015726 


001006 




BNE 


1« 


4297 


015730 


0047)7 


020716 


JSR 


PCrCT2RG 


4298 


0157)4 


012737 


000200 001166 


HOV 


•300>$RGC3 


4 299 


015743 


1041t)5 




ERROR 





4 30^ 
4301 
4302 
4)^*3 
4104 
4)05 
4306 
4107 
4)08 
4)t)9 
4310 
4311 
4313 
1313 
4314 
4)15 
4316 
4317 
4318 
4319 
4 330 
1331 
4)32 



015744 
015750 
015753 
015756 



022710 140214 
001403 

004737 030716 
104106 



CHP 
BEO 
JSR 
ERROR 



1140314, »R0 
48 

PC>CT3RG 
106 



015760 104413 



JTHIS IS A CALL FOR THE 'CMTHI.- 
jRESEf POOIIHE. A CONTROL RESET IS 
(ISSUED AND »rTEH A CERTAIN TIME 
I IF THE 'CNTRL RDY' DOES HOT SET 
;AN error is REPORTED. NOTE THAT 
jTHE PC IN ERROR MESSAGE IS THE 
>PC HHERE 'CNT. RESET* IS LOCATED. 
jTHIS IS A VERT BASIC ERRS IF IT 
;OCCURS CO BACK TO TEST 10 
fCHECK IF 6IH IS SET, IF SET 
»00 DRV RESET TO CLR IT 

;AORES DRIVE 7 TO FIND 

I IF IT IS PRESENT 

tAORES DRIVE • POINTED TO BI R3 

(TIME DELAY* 7.5 US ON 11/30, 

;t,5 US ON 11/45 

;I6 IT PRESCNTT 

(NOf BRANCH 

lADRES THE NXT DRIVE IN THE 
(REVERSE ORDER. I.E. 7,6>... 
(LUP BAK (, TRT TO FIND A DRIVE 
(THAT'S NOT PRESENT 
((EXIT TO THE NXT TST 

(DRIVE RESET, ON A NX DRIVE 

(TINE DELAY, 535 US ON 11/20 

(105 US OH U/45 

(DID NXD BIT IN RKER SET? 

(YES, BRANCH 

(GET RKCS, RKER 

(THIS BIT (NXD) IN RKER DID NOT SET 
(NXO BIT DID NOT SET OH TRYING 
(TO PERFORM A FUNCTION ON A 
(HON-EXISTENT DRIVE 

(CHECK THAT THE JUMPER CARD CONTAINING 
(JUMPERS FOR DRIVES PRESENT IS PROPERLY 
(CONNECTED 

(NOTE THAT ON RKUC IF A DRIVE 
(IS OFFLINE BUT PHYSICALLY PRESENT 
((IE, DRY IS CLR FOR THAI DRIVE) 
|« A FUNCTION IS INITIATED ON THAT 
(DRIVE NXO HON'T SET, BUT U WILL 
(GET ONLY A DREtHE t ERR, 
(DID HE t ERR SET WHEN NXD SETT 
(YES BRANCH 

(HE OR ERR BIT DID NOT SET 

(MHEN NXO HAS SIMULATED 

(CLEAR NXO, HE, ERR BITS 

(GO, DO CONTROL RESET 

(THIS IS A CALL FOR THE 'CNTRL- 

(RESET* ROUTINE. A COHTROL RESET IS 

(ISSUED AND AFTER A CERTAIN TIME 

(IF THE 'CNTRL RPY' DOES HOT SET 

(AN ERROR IS REPORTED. NOTE THAT 

(THE PC IN ERROR MESSAGE IS THE 
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DZPKKD.Pll 33-SEP-76 


08(47 


4)33 








4374 








112? 








4326 


015763 


004737 


031264 


4321 








4)28 


015766 


104103 




4)2<> 








43)^ 


013770 


004737 


021310 


43)1 








4332 


015774 


104102 




4333 








4334 


015776 


004737 


021344 


4335 








4336 


016003 


104016 




4317 








4338 








4339 








4340 








4341 








4342 








4343 








4)44 








4)45 








4346 


ei6t}04 


00000 4 




4)47 


016006 


01)700 


001332 


4)48 


016^13 


012737 


177773 


4)49 


016030 


01)702 


001350 


4)50 


016(*34 


052702 


014540 


4351 


016M30 


013737 


0160)6 


4)52 








435) 


0160)6 


104413 




4)54 








4355 








4356 








4357 








4358 








4359 








436ij 








1361 








4362 








4)63 


016040 


004737 


031344 


4)64 








4365 


016044 


104016 




4)66 


016046 


104421 




4367 








4368 


016050 


010377 


163264 


4369 


016054 


013710 


fiaeiii 1 


4)70 


016060 


104413 




4371 








4372 


016062 


104331 




4)73 








4374 








4375 








4)76 


H|6<)64 


012777 


9MH100 


4377 


016'a72 


001070 




4 378 


016074 


034737 


B2H716 
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CHECK NXO ERROP 



JSP 


PCCHKECIR 


ERROR 


102 


JSR 


PCCHKCCLR 


ERROR 


102 


JSR 


PCTSTRHS 


ERROR 


16 



(PC NHERE 'CNT, RESET* IS LOCATED. 
(THIS IS A VERY BASIC ERRA IF IT 

i OCCURS GO BACK TO TEST 16 
(CHECK IF 'NXO' BIT HAS CLEARED BY 
ICON. BESET. IF NOT, RETURN HERE. 
(CNTRL RESET DID NOT CLEAR 
;NXO BIT IN RKER 

;CHECK IF 'HE* 'ERR' BITS HERE CLEARED 

(BY CON. RESET, IF NOT RETURN HERE. 

JCMTRL RESET DID NOT CLEAR 

(HE OP ERR BIT IN RKCS 

(GO CHECK WAIT FOR R/M/S HDY 

(TO SET, IF SET SKIP ERROR 

(R/W/S SHOULD BE SET, IT'S 

(NOT 



45 SIMULATE 6 CHECK NXC ERROR 

(•THIS TEST SIMULATES THE NON-EXISTENT CYLINDER ERROR 6 CHECKS 
;»IF IT IS DETECTED BY IHF: NXC BIT OF RKER, HE 6 ERR BITS 
(»0F RKCS. IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL 
(•RESET 

^ ••••••••••••••*•••«••»••*••••••••*••••••»••••«••«••••••••• 

SCOPE 



( ( •••• 
TST45I 



001363 3(1 



MOV 
HOV 
MOV 
BIS 
MOV 



RKCS, R0 
»»5, COUNT 
DRIVAD,R3 
«U540,R3 
•)(,tLPERR 



CNT. RESET 



ERROP 
TST. SIN 

MOV 
MOV 

CHKCRDY 



R2,«RK0A 
• U,«R0 



BIT 

JSP 



»i00,aRKF;p 

4S 

PCGT'JRG 



(ALLOW 'ERROR 133' ONLY S TIMES 

(GET ADRES OF DRIVE 

(SET BITS FOR CYL 31} 

(SET RETURN ADRES FOR 

fLUPING ON EROR (8W9) 

(GO, DO CONTROL RESET 

(THIS IS A CALL FOR THE 'CNTRL- 

(RISET' ROUTINE. A CONTROL RESET IS 

(ISSUED AND AFTER A CERTAIN TIHB 

(IF THE 'CNTPL ROY' DOES NOT SET 

(AN ERROR IS REPORTED. NOTE THAT 

(THE PC IN EHPOR MESSAGE IS THE 

(PC WHERE 'CNT. RESET' IS LOCATED. 

(THIS IS A VERY BASIC ERRfc IF IT 

(OCCURS CO BACK 10 TEST 10 

(GO CHECK £ WAIT FOR R/M/8 RDY 

;T0 SET. IF SET SKIP ERROR BELOW 

;R/W/S RDY IS NOT SET 

(CHECK IF SIN IS SET, IF SET 

(00 DRIVE RESET TO CLR IT 

(ADRES DRIVE, NXC CYLINDER 

(SEEK, GO TO NXC CYL 

(GO CHECK IF CONTROL RDY 18 SET 

(IF SO, SKIP THE EROR MESSAGE. 

(SEEK WAS TRIED TO A NOH EXISTENT 

(CYLINDER, NXC SHOULD HAVE OCCUREO 

(SETTING CNTHL RDY, BUT CNTRL RDY 

(DID NOT SET. 

;IJID NXr SET? 

(KtiS, BBAiJCH 

iCO GET RKCS, ER 
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4J79 


016100 


017737 


163234 


4380 


016106 


1041 10 




4381 








4382 








4383 


016110 


004737 


021 344 


4384 








4385 


016114 


104016 




4386 


016116 


1 0441 3 




4387 


016130 


004737 


021 412 


4388 


016124 


104026 




4389 








4390 








4391 


016126 


005237 


001 362 


4192 


016132 


001405 




4393 


016134 


062702 


000040 


4 394 


016140 


033702 


017740 


4395 


016144 


001334 




4396 








4397 


016146 


032710 


1 40000 


4398 


016152 


001003 




4399 


0161S4 


0047 37 


030716 


4400 


016160 


104106 




44B1 








4402 








4403 


016162 


10441 3 




4404 








4405 








4406 








4407 








4408 








4409 








4410 








44t 1 








441 2 








441 3 


016164 


0047 37 


021264 


4414 








4415 


016170 


104102 




4416 








4417 


016172 


0327 1 


1 40000 


411fl 


016176 


001 405 




4419 


016200 


010037 


001 162 


4420 


16204 


01 1037 


001 164 


4421 


016210 


104102 




4422 








4423 








4124 
















4126 








4127 








4429 








4429 








44«H 








4tM 


016212 


000004 




4432 


016214 


10441 ) 




44)3 








4414 









MOV 
rRROH 



aRK0Ar(BEG2 
110 



ERROR 16 
C«T. BESET 



JSR 
ERROR 



IWC 
BEO 
ADD 
BIT 
BNE 

BIT 
BNE 
JSR 
ERROR 



PCiDRESET 
26 



COUNT 
5$ 

140, R2 
#17740, R2 
U 

f 140000, tRO 
68 

PC,GT2RG 
106 



CNT. RESET 



I GET RKOA 

>NXC DID HOT SET NHCN SEEK 

iWAS TRIED TO CXLINOER AS IMDICATED 

>IH RKDA 

jCHECir t WAIT FOR R/M/8 RDt, 

I IF SET SKIP ERROR 

IR/M/S SHOULD BE SET 

•00 00 CONTROL RESET 

}Q0 DO DRIVE RESET 

SMXC DID MOT SET AND OSITB HAV 

>HAVE TRIED TO DO A SUK, AFTER 

JilHICH P/M/S RDY DID NOT SET 

> ALLOW ONLY 5 MESSAGES FOR 

{ERROR 133 

lADRES THE HXT CYLdH NON-BXISTEHT »ONE) 

ICHKD FOR ALL MXC'S? 

lIF NOT, LUP BAK i CHK THE HXT NXC 

IDID HE S ERR BIT SET WHEN NXC BIT SETT 
lYES, BRANCH 
»GET RKCS, ER 

iHE OR ERR BIT DID NOT SET IN RKCS 
;HHEN NXC ERROR MAS SIHUIiATED 
;CLEAR HE, ZM, NXC BITS 
;G0, DO CONTROL RESET 
JTHIS IS A CALL FOR THE 'CHTBL- 
> RESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIHE 
J IF THE 'CMIRL ROY* DOES NOT SET 
>AN ERROR IS REPORTED. NOTE THAT 
fTHE PC IN ERROR MESSAGE IS THE 
>PC HHBRE 'CNT, RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR4 IF IT 
/OCCURS GO BACK TO TEST 10 



JSR 


PC'CHKECLR 


;CHECK IF 'NXC* BIT MAS CtEARED BY 
ICON. RESET, IF NOT, RETURU HERE. 


ERROR 


103 


;CNTRl, RESET DID NOT CLEAR 
INXC BIT IN RKER. 


BIT 


f 140000, ORO 


)DID HE (■ ERR BITS GET CLEARED? 


BEQ 


TST46 


;;YES, EXIT 


MOV 


RO.tRECB 


JGET ADRES OF RKCS 


MOV 


8R0,(REG1 


JGET RKCS CONTENTS 


ERROR 


103 


JCNTRL RESET DID NOT CLEAR 



;HE OR ERR BIT IN RKCS 

; )••••••*»»«»»•»*••••»•••••»•••»•«•«••«**•••••*•••••*••*•••*••••• 

|*TEST 46 SIMULATE 6 CHECK NXS ERROR 

J 'THIS TEST SIMULATES NON-EXISTENT SECTOR ERROR & CHECKS THAT 
)»1T IS DETECTED BY NXS BIT OF RKER, IT IS CHECKED THAT 
MhHEN NXS SETl HE ERR OF RKER ALSO SETS, AND ALL THREE 
|»CAN BE CLEARED BY CONTROL RESET, 

t ( •»♦•••••••♦••••»•»••»»•••»•••»«»•»•»••*••♦•••»♦*•••♦«•»♦«•••••• 

TST46I SCOPE 

CMT, RESET >G0, DO CONTROL BESET 

JTHIS IS * CALL FOP THE 'CNTRL- 
JRESEI' ROUTINE. A CONTROL RESET IS 
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irkkd. 


P11 22-SEP-76 


08:47 


T46 


SIMULATE & CHECK NXS 1 


4435 














4416 














4437 














4438 














4439 














4440 














4441 














4442 


016216 


013700 


001 332 




MOV 


RKC8,R0 


4443 


016222 


01)777 


001350 


163110 


HOY 


DRIV&D,8PK0A 


4444 


016230 


052777 


00001 4 


163102 


BIS 


•14,aRKDA 


4445 


016236 


012777 


177777 


163070 


MOV 


•-1,BRKWC 


4446 


016244 


012777 


033240 


163064 


MOV 


«0UTBUr,8RKBA 


4447 


016252 


012710 


PI00005 




MOV 


t5,8RO< 


4448 


016256 


104414 






CNT. RDY 




4449 














4450 














4451 














4452 














445) 














4454 












»PKilR,fl2 


4455 


016260 


017702 


163044 




MOV 


4456 


016264 


032702 


000040 




BIT 


t40«R2 


4457 


016270 


001006 






BNE 


11 


44<SA 


016272 


004737 


020716 




JSR 


PC»«TaBG 


4459 


016276 


012737 


000040 


001166 


MOV 


i4»»8REG2 


4460 


016304 


104105 






ERROR 


10i> 


44(>1 














4462 


016306 


042702 


000040 


181 


BIC 


t4E,R2 


4463 


016312 


001407 






BEQ 


28 ' 


4464 














446S 


016314 


012737 


000040 


001 1S2 


MOV 


«40(8Reoe 


4466 


016332 


017737 


163002 


001164 


MOV 


•RKtR>SREGl 


4467 


016330 


104107 






ERROR 


107 


4488 














4469 














4470 














4471 


016332 


022710 


140204 


2li 


CMP 


1140204, «R0 


4472 


016336 


001403 






BEQ 


38 


4471 


016340 


004737 


020716 




JSR 


PC,GT2RG 


4474 


016344 


104106 






ERROR 


106 


4475 














4476 














4477 


016346 


104413 




3ii 


CNT. RESET 


4478 














4 479 














4480 














4 481 














4483 














4483 














4484 














4485 














44fi6 














4187 


016350 


004737 


021264 




JSR 


PCCHKECLK 


4488 












4489 


016354 


104102 






ERROR 


102 


4490 













; ISSUED AND AFTER A CERTAIN TIME 
»IF THE 'CNIRL RDY' DOES HOT SET 
IAN ERROR IS BEPflRTED. NOtE THAT 

ithe pc in epror message is the 
ipc where 'cnt. reset' is located, 
ithis is a very basic err6 if it 
joccurs go back to test 10 

jget adres of drive 

;SET bits for sector 12 COECIMAL) 

iread 1 word 

;into this bus ADRES 

jread, go (from nx sector) 

STHIS is a CALL FOB 'C».RDY' 
IROUTINE WHICH WAITS FOR CNT 
;RDy TO SET. ir CHIRL RDY DOES 
;NOT SET WITHIN 883 MS/ 11>30 
|(17« MS FOR U-4S WITH BIPOLAR) 
I AN ERROR IS AEPOBTED 
I NXS ERROR SHOULD OCCUR NOH 

;0I0 NXS BIT SET IN HKERT 

;YES, BRANCH 

I GO GET RKCS, RKKB 

ITHIS BIT CNXS) IN RKER DID NOT SET 

I NXS BIT DID NOT SET ON SIMULATING 

I NXS ERROR 

I MASK NXS BIT 

; CHECK IF ANY OTHER 

IRKER BIT SET 

IGCT EXPCTD RKER 

I GET RKER RECVD 

I ONLY 'nXS' SHOULD BE SET 

I IN RKER, ANOTHER RKER BIT 

JMAS SET. (NOTE 'NXS' HAS 

{SIMULATED) 

lOIO HE & ERR BITS SETT 

|YES> BRANCH 

I GO GET RKCS, RKER 

iHE OR ERR BIT DID NOT SET WHEN 

INXS ERROR OCCURED 

ICLEAR NXS, HE, ERR BITS 

|G0, 00 CONTROL RESET 

I THIS IS A CALL FOR THE 'CffTRL> 

) BESET' BOUTINE. A CONTROL RESET IS 

; ISSUED AND AFTER A CERTAIN TIME 

!IF THE 'CNTRL RDY' DOES MOT SET 

;AN ERROR IS REPORTED. NOTE THAT 

iTHE PC IN ERROR MESSAGE IS THE 

IPC WHERE 'CNT. BESET' IS LOCATED. 

ITHIS IS A VERY BASIC ERR( IF IT 

lOCCURS GO BACK TO TEST 10 

ICHECK IF 'NXS' BIT WAS CLEARED BY 

ICON. RESET. IF NOT, RETUEN HERE. 

ICNIPL RESET DID MOT CLEAR 

;«IKS BIT IN RKER 



HAINOEC-U-OIRKK-D 



DZRKRDa 
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l-SEP-76 


B8I47 


4491 


016356 


004737 


031310 


4492 








4493 


B16362 


104102 




4494 








4495 








449t 








4497 








4498 








4499 








450? 
















4902 








4503 
















4505 


016364 


000004 




4506 


016366 


01 3700 


001 332 


4507 


016372 


10441 3 




4508 








4509 








45t0 








451 1 








4512 








451 3 








4514 








45 IS 








4S1 6 








4517 


016374 


104471 












4519 


016376 


01 2701 


033240 


4520 


016402 


012702 


177400 


4521 


016406 


012703 


177777 


4522 
















4524 


01641 2 


062701 


177401 




016416 


010321 








005202 








001 373 




4529 








4529 


016424 


012737 


1 70007 


453d 








4511 








4512 


01 6432 


012777 


177400 


4513 


(1 1 6440 


012777 


033240 


4534 


01 6446 


013777 


•01 390 


4515 


016454 


01 2710 


000007 










4537 


1 6460 


ICI44I2 




45 38 








4919 


016462 


1 04065 




4540 








4541 


016464 


032777 


0X0001 


4542 


016472 


001006 




4543 


016474 


0B4737 


030716 


4544 


016500 


012737 


000^01 


4545 


016506 


104109 




4546 
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T46 SIMUtkTt CHCCIC NXB ERROR 



SCO Bl'8 



ERROR 



PC.CHKCCLR 
1«2 



fCHECL ir 'HE' 6 'BRU' BITB WERE CLEARED 
IBT COH. RESET. IF HOI, RETURN HERE. 
IRKC8 BITS ERR OR HE MEKE NOT 
JCLEARED BT CMTRL RESET 



»»IEai 47 BtNUWTE t CHECK NCE _ _ 

I •THIS TEST SINOLATES A WRITE CHECK ERROR AMD CHECKS THAT IT 
»»IS DETECTED BY WCE BIT OF RKER, FOR C0HPABI80H IT USES 
>»THE 296 WORDS DATA BLOCK WRITTEN OH SECTOR 0, CtttHDEB 
i»IN A PREVIOUS TEST, THIS BLOCK IS COMPARED WITH THE 256 WORDS 
|»MEHORy BOrFEU STARTING AT 'OUTBUF'. NCC IS SINOUTED BY 
,»0ROPPIN0 A BIT FROM ONE Of THE WORDS IN THE MENOM BUFFER. 
5 f »»•••••»•••»»••••••»•»•••••••••••••••••*•*•••••••••*•••••♦•*••• 

TST47I SCOPE 



162674 
162670 
162664 



163636 381 
001166 



MOV RKCCrR* 
CNT. RESET 



MOV lOUTBUFfRi 
MOV t-40e#R3 
HOV tlt7777,R3 



|60, 00 CONTROL RESET 

J THIS IS A CALL rOR THE 'CWtBL- 

JRESET' ROUTINE. A CONTROL RESET IS 

I ISSUED AND AFTER A CERTAIN TINE 

J IF THE 'CNTRL KOY' D0E8 HOT SET 

rAN ERROR IS REPORTED. NOTE THAT 

I THE PC IN ERROR MESS ACE If THE 

;PC WHERE 'CNT«RCSET' IS LOCATED. 

:THIS IS A VERY BASIC ERIt6< IP IT 

>QCCURS 00 BACK TO TEST IB 

(CHECK IP SIN IS SET# IP 

(SET DO DRV'RESST TO CLR IT 

iTHtS CODE SETil UP A HEMORt 

I BUFFER OF 256 WORDS STARTING 

>AT OUTBUF 

;FIRST HORD 177400 

(SECOND 177001 

ILAST WORD 000377 
(HAVE U GENERATED ALL 396 WORDS? 
(IF NOT, LUP RAK 6 GENERATE NXT 



ADO 1177401, R3 

HOV R),(Rl}f 
INC R3 
BNE 18 

MOV 8170007, OUTBUF+16 |WCE WILL H SIMULATED BY DROPPING A 

(BIT IN THE EIGHTH HORD WHICH 18 
(SUPPOSED TO B 174007 
MOV 1-400, BRKNC (HRT CHK 400 H0RD8 

HOV fOOTBUr,8RKSA (STARTING AT THIS BUS ADRBS 

MOV ORXVAOfPRKDA (WITH THIS DISK ADRES« SCC CYL 

HOV l7,tR0 (HRT CHK, GB 



CHKCRDY 
ERROR 69 



BIT 
•NE 

J8R 
MOV 
ERROR 



*1,0RKBR 
48 

PC»0T3RC 
8U8REa2 

109' 



(60 CHECK IF COHTROL RDT 18 SET 
lIF SO, SKIP THE EROR NESSAGE. 
(CHTRL RDY DID NOT SET 
(AFTER WRT CHK 
(DID MCE BIT SETT 

(GO. SET RKC8, RKER 

(THIS BIT tWCE) DID NOT BBT 

(WCE DID NOT SET ON SIMULATING 

(WCE CONDITIONS 
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4547 
4S4« 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4583 
4583 
4584 
4585 
1986 
4587 
4588 
4589 
4590 
4991 
4992 
4593 
4594 
4S9S 
4596 
4597 
4598 
4599 
4608 
4601 
4602 



016510 
«165!4 
H16516 
016522 

016924 
016526 

016532 

016514 

016540 



022710 
901401 
004737 
1041M6 

104413 
004737 

104102 

004737 

104102 



100206 
020716 



021310 



CMP 1100206, fR0 

BEO 5t 

JSR PC,CT2RG 

ERROR 106 

CNT. RESET 

JSR PCCHKECLR 

ERROR 10] 

JSR PC/CHKCCLR 

ERROR 102 



( IS BKCfl CORBECTT 

(YES, BRANCH 

(GO, GET RKCS, RKElt 

;HE OR ERR BIT DIB NOT SET WHEN 

(WCE HAS SIMULATBD 

(CNTRL RESET 

(WAS 'NCE' BIT CLEARED? 

(IF NOT, RETURN HERE. 

(CHTRL RESET DID NOT CLEAR 

(WCE BIT IN RKER 

(CHECK IF 'ERR* BIT HAS CLEARED. IF 

(NOT RETURN HERe. 

(CNTRL RESET DID NOT CLEAR 

(RKCS 



016542 000004 
016944 104413 



016546 


104421 






TST.SIN 


016550 
016554 


013700 
013737 


001332 
170007 


033356 


MOV 
MOV 


016562 
016566 
016574 
016602 
016606 
016612 


0t37ni 
013777 
B12777 
010177 
012710 
104412 


001390 
177000 
033240 
162532 
008407 


162S40 
162934 


NOV 
MOV 
HOV 
MOV 
MOV 

CHKCRDY 


016614 


104065 






EdROR 



((•••••••«•••••••••»••••••••••«•••••«»«••••»«••••••»••••••»•••««• 

(•TEST 90 CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 

(•THIS TEST CHECKS THAT WHEN 'STOP ON SOFT ERROR' BIT IS SET IN 
(•RKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTION HILL 
(•STOP AT THE END OF THE CURRENT SECTOR IF IDE BIT IS CLEAR. 
(•SOFT ERROR IS SIMULATED BY A WCE AS IN THE PREVIOUS 
(•TEST. THE PREVIOUS TEST 6 THE TEST WHICH HRITES DATA 
(•BLOCK ON CYLINDER 0, SECTOR 0, SHOULD BE DONE PRIOR 
(•TO THIS TEST. A TWO SECTOR 'HRT CHK* HILL BE tOHE, 
(•CONTROL ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING 
(•WHICH A SOFT ERROR IS SIMULATED. 
( (••••••••••«»*««»*««»«»*«»»«>«»»««*««»«««»««»««««»«««««««^«M«« 

T8T90I SCOPE 

CNT. RESET (GO, DO CONTROL RESET 

(THIS IS A CALL FOR THE 'CNTRL* 
(RESET' ROUTINE. A COHTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CHTRL RDY' DOES NOT BET 
(AN ERROR IS REPORTED. NOTE TRAT 
(THE PC IN ERROR MCBSkCC IS THE 
(PC WHERE 'CNT, RESET' IB LOCATED. 
(THIS IS A VERY BASIC' ERR( IF IT 
(OCCURS GO BACK TO TEST 10 
(CHECK IF BIN It SET, IP 
(SET 00 DRIVE RESET TO CLR IT 

RKCS , R0 

1170007, OUTBUF+15 (HCE IS SIMULATED BY DROPPING A BIT 
(IN THE EIGTH HORD (WHICH IS ACTUALLY 
(174007). NOTE THAT 256 HORD MEMORY 
(BUFFER IS CREATED IN THE PREVIOUS TEST. 



DRIVAD.Rl 
•-1000,8RKWC 
•OUTBUF, »BKP1 
R1,»RK0A 
1407, 8R0 



(HPT CHK 1000 (OCTAL) WORDS, 3 SECTORS 
(FROM THIS BUS ADRES 

(WITH THIS DISK ADRES, SEC 0, CYL 
(HRT CHK, GO, SSE 
(GO CHECK IF COHTROL RDY IS SET 
(IF SO, SKIP THE EROR MESSAGE, 

iCMRL RDY DID NOT SET AFTER HPT 
(CHK. A SOFT ERROR (WCE) IN 
; SECTOR ? SHOULD HAVE STOPPED 

;SM., :ONTP01. ACTION, 
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4601 
4604 
4609 
460« 
4607 
4608 
4609 
4610 
4611 
4613 
4613 
4614 
461S 
4616 
4617 
4618 
4619 
4630 
4631 
4633 
4623 
4634 
462S 
4636 
4637 
4628 
4629 
4610 
4631 
4632 
4633 
4634 
463S 
4636 
4637 
4638 
4639 
4640 
4641 
4643 
4643 
4644 
4645 
4646 
4647 
4648 
4649 

46se 

46S1 
4653 
465) 
4654 
4655 
4656 
4657 
4658 



016616 023777 000001 163S94 2$: 



016834 
016636 
016614 
016642 



016644 
016646 



016653 
016654 
016660 
016666 



016670 
016673 



016674 
016676 



016704 
016710 



001407 

•12737 000001 001183 

017737 183470 0011(4 
104107 



009301 

•30177 162466 



001406 

010137 001162 

017737 163454 ••1164 

104070 



000004 
104413 



181 



104421 

012717 170007 033286 



013701 001350 

012777 177000 163416 



CMP ILgRKBR jCHECK ONLY 'HCE* BIT •HOOLD 

tBE SETT 

BEO It :YES> BRANCH 

HOV I1,IREG0 >6ET EXPCTD RKER 

MOT BRKER.tRECl I«ET RKEP RECVD 

ERROR 107 »0HIY BIT 'MCE* Of RKER 

ItHOOLD BE SET (HCC MkS 
•SIMUbATED ASOVE). ERROR 

jir IT'S HOT 

IHC Ri SCHECK THAT RKDA HCRRMENTCO BT 

CMP R1,8RK0A >1 ICCTOR ONLY IHPMINC THAT 

;CNTRIi ACTION DID STOP AFICR 

I sort ERROR II SECTOR 
BEO T8T51 MIES, EXIT 

MOV Rl.tREGB ICET EXPCTD RKDA 

NOT BRKOArtREOt ICET RKDA RECTD 

ERROR 70 IRKOA SHOULD HAVE INCRHHTD 

18T 1 SECTOR ONLTf IT DIDN'T. 

IHCE MAS SIMULATED IN THE 

iriRsr SECTOR t a hrt cuk 

lOr 2 SECTORS HAS IMUE6% 
I CONTROLLER SHOULD STOP AfTBR 
IDETECTINS NCE IN THE FIRST 
ISECTOR. HCMCE RKDA SHOULD 
lINCOtMENT »T 1 SECTOR ONLT 



1 

t»TE8I 91 CHECK THIT RKll INTERRUPTS ON SOFT ERROR NHEN 8SE 8 IDE ARE SET 

|*THIS tCST CHECKS HRN SS| BIT IS SET KITH IOC 8BT AND A SOFT 
(•ERROR OCCURS* THBH AU COHTROI. ACTION HtU> STO^ AND A BUS 
{•REQUEST (INTCRROpT) HILL OCCUR AT THE BHD OF THE CURRENT 
{•SECTOR. SOFT ERROR 18 StNOLATED BY HCC AS IH PREVIOUS 
{•TEST. PRER>QUISITBS< FOR THIS TEST ARE ME BANC AS THOSE 
{•FOR THE FREVIOUS TttSt. 
1 1 »##•»»»♦••••••»•••••••••#••♦•#••»••••»•••••••••♦•♦•♦••♦♦•♦••••» 

TST81I SCOPE 

{OP I DO COHtROL RESET 
{THIS IS A CALL FOR THE 'CHTRL- 
{RC8ET' ROUTINE. A CONTROti RESET IS 
{SiSUED AND AFTER A CERTAIN TINE 
{IF THE 'CNTRL ROY' DOES NOff SET 
{AN ERROR IS REPORTED. NOTE THAT 
{THE PC IN ERROR KISSAGE IS: THE 
{PC HHtRB 'CRT. RESET' IS LMATCD. 
{THIS IB A VERY BASIC BRR8 IF IT 
{OCCURS 00 BACK TO TEST 10 
{CHECK IF SIN IS SCT> IF 
;SCT DO DRIVE RBSEt TO CLR IT 
II 70007 >0UT8UP»16 {HCE IS SIMULATED BY DROPPING A BIT 
{IN THE nCHTH HORD (WHICH IS 174007) 
{NOTE Tlttt THB 296 HORD HCMORV 
{BUFPBR (STARtlie AT OUTBUFI IS 
{CmtCO IN A PREVIOUS TEST. 



CHT. RESET 



TST.SIN 



HOT 



HOV 
HOT 



DRIVADfRl 
f>10B0,»RKHC' 



{NRI CMK 1080 (OCfAL) HORD<> 2 SECTORS 
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4659 
4660 
4661 
4662 
466) 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
467) 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4693 
468) 
4684 
4689 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
469) 
4694 
4695 
4696 
4697 
4b98 
4699 
4700 
4701 
4702 
4701 
47«4 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 



016716 
016724 
016730 
016734 
016740 
016744 
016752 



016756 
016762 



016766 
016770 
016772 

017000 
017002 



017006 
017^10 
017014 
017022 



017024 
017024 
0170)0 
0170)4 
017336 
0170)6 



017042 
017044 
017050 
017054 
017^56 

017064 
017070 
017074 
017076 



013777 
010177 
01 3700 
012720 
012710 
012/77 
104420 



B04737 
104111 



016764 000417 



022626 
022636 
012777 

005201 
020177 



001406 
010137 
0177)7 
10400) 



013746 
B12746 
000002 



000004 
01)700 
013701 
005003 
0127)7 

104417 

3047)7 
104016 
M441) 



0)3340 
162410 
001402 
016766 
800)40 
000507 
177777 



•20716 



004526 
162333 



001163 
163320 



••0)40 

017036 



005077 162370 



BB0143 
021344 



MOV 
HOT 
HOV 
NOT 
MOV 
MOV 



RlftRRDA 
RKTCCrRi 
fll»(RB}f 
I 1 48 > Ska 
• 987.81^08 



MAT.INT»177777 



J8R 
ERROR 



PC#«T)Rfl 
111 



CMR (SPJ'«'«(SR)4 
CMR Csn-»«(SP)t 
MOT «siblMT>8RKVBC 



••1184 



XNC 
CMP 



BEO 
NOT 
HOT 
ERROR 



MOT 
MOT 
RII 



Rl 

RlfRRKOA 



at 

Rl,8RE60 

8RltDA,tREGl 

1 



1348, •(SP) 
t64t>*<SP] 



{FROM THIS BUS ADRC8 

{HITH THIS DISK ADRBBf SEC' Br CYL 8 

>8ET UP INTERRUPT VECTOR FOR RKll 
ittt PSH ON INTERRUPT 
(KltT CHRi GO. 8SE> IDE SET 
{kAlT FOR INTERRUPT FROM RKll 
{TIMEM88 M3 FOR 11/20, 
{•7 MS FOR 11/45. 
{11/08 

{RKll DID DOT INTERRUPT AFTER A SOPl 
{ERROR CtlMULATEO) IN SECtOR 



{RESTORE STACK POINTER (FROM RKll INTRUPT) 
{POP STACK (FROM HAT. INT) 
{RCSCORE RKU tNTERRtfPt VECTOR 
{ADRES FOR UNEXPECTBO INTERRUPTS 

{CHECK THAT RKDA INC«EMENTED 

{•Y ONLY 1 SBCTOR BEFORE IN9ERRUPT 

{OCCORRBD 

(GET BXPCtO RKOA 
{SET AkDA RECVD 

{RKDA SHOatD HAVE INCfiEMENttO BY 
( 1 SBCTOR ONLY, IF ALL CNTRL ACTION 
{HAD STOPPED ATTBR SOFT ERAOit 
{(SIMULATED) IM SSCTOR 8, tt DID NOT. 



BRKCS 



{CLEAR THB IDE BIT 



001333 
177774 



B17064 001110 



{ {••••••••••••••••••»••*••••»«•••••••••••••••••••••«•«••«••«•««•« 

(•TEST 92 CHECK THE HEX BITS IH RRCS 

{•THIS TEST CHECKS OUT THE EXTENDED MEMORY BITS OF THE RKCS. 
(•THE RKBA tS SET TO 1T7776 AND A ONE HORD HRITE CHECK IS TRIED. 
{•THIS COULD GIVE RISE TO NXM ERROR, BUT EVEN THEN THE RKBA 
{•SHOULD OVERFLOH IlfTO THE HEX BIT8. SIMILIARIY IT 18 CHECKED 
{•THAT THE 0VERFL0HIN6 BIT CAN MAKE THE HEX BITS COUNT 
(••1.18,11,00, 

I {••••••••••••••«•«••••«•«••••••«*»•«»••«••»»(*«««••«»••«•*•••••• 

TST92I SCOPE 

MOV RKCSfRB 

MOV 1-4, Rl (SET UP THE COUNT 

CLR R3 {INITIALISE MEX BITS TO B SET IN RKCS 

MOV ltt,(LPERR (SET RETURN AORES FOR 

(LUPING ON EROR (SN9) 
Itl DELAY ,143 {TIME DELAY 

JSR PCTSTRHS (WAIT FOR R/W/S RDY 

ERROR 16 (R/W/5 RDY IS NOT SET 

CNT. RESET (CO, DO CONTROL RESET 
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4715 








4716 








4717 








4718 








4714 








473(9 








4731 








4722 








4773 








4724 


017100 


01i»2t0 




4725 


017102 


012777 


177777 


4726 


017110 


013777 


001350 


4727 


017116 


012777 


177776 


4728 








4729 


017124 


052710 


000007 


4730 








4731 








4732 








4733 


017130 


104412 




4734 








473S 


017132 


104065 




4736 


017134 


010205 




4737 


017136 


067705 


000020 


4738 


017142 


042705 


000 100 


4739 


017146 


01 1004 




4740 


017150 


042704 


177717 


4741 


017154 


020304 




4742 


017156 


001 405 




4743 


017160 


010537 


001 162 


4744 


»I17164 


010437 


001164 


474S 


017170 


104112 




4746 








«747 








4718 








4749 








4750 


017172 


017703 


162132 


4751 


017176 


010305 




4752 


017200 


042703 


003001 


4753 


017204 


001410 




4754 


017206 


042705 


177776 


4755 


017212 


010537 


001162 


4756 


017216 


317737 


162106 


4757 


017224 


104107 




4758 








4759 








4760 


017226 


062702 


000070 


47(,1 


017232 


00520'. 




47*,2 


017234 


001313 




4763 








4764 








4765 








4 766 








4767 








4768 








1764 








477* 









162224 
162222 
162212 



MOV 
MOV 
MOV 

MOV 

BIS 



ERROR 

MOV 

kOD 

BIC 

MOV 

BIC 

CMP 

BEO 

MOV 

MOV 

ERROR 



MOV 
MOV 
BIC 
BEO 
BIC 
MOV 
HOV 
ERROR 



R2,0R0 
*-l»|tRKHC 
DRIVADttflKOA 
•177776«0RKBA 

t7>>R0 



6S 

R2>RS 

*20,R5 

*t00>RS 

•R0,R4 

1177717, R4 

RS.R4 

4* 

R5,SREG0 
R4r*RCGl 
112 



•RKER.R3 
R3,R5 
1)001. R3 
St 

#177776, R5 

R9.IREG0 

«RKER,*RECl 

107 



ADD 120, R2 

INC Rl 
BNE 18 



THIS IS A CALL FOR THE 'C^TPfc- 
RESET' ROUTINE. A COMTROt, RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IE THE 'CNTRL BDV' DOES HOT SET 
AN ERROR IS RBPORTCO. NOTE THAT 
THE PC IN ERROR MCSSAGC II THE 
PC MHERE 'CNT. RESET' 18 bOCATGD. 
THIS IS A VERY BASIC ERRC IF IT 
OCCURS CO BACK TO TEST 10 
SET MEX BITS (AS IN R2) IN RKCS 
URT CHK 1 WORD 

THIS I>ISK AOHBS, SBC 0, CYL 
THIS BUS ADRE8. NOTE THIS BA 
IN COHJWCTION HITH MEX BITS OF RKCS 
WRT CHK, GO 

THERE NAT RE A NXM OR NCE BUT 
WHATEVER THE CASE RKBA SHOULD 
OVERFtOH MAKING THE HEX BITS COUNT 
CO CHECK ir CONTROL ROY IS SET 
IF SO, SKir THE EROR MESSAGE. 
CNTRL ROr DID MOT SET AFTER WRT CHK 

HtX BITS SHOULD IHCilEHERT BY 1 TO THIS 
MASK OUT IDE BIT POSITION, IF SET 
GET RKCS 

MASK OUT ALL BITS EXCEPT MEX 

DID MEX BITS INCREMENT CORRECTLYT 

TES, BRANCH 

GET EXPCTD MEX BITS 

GET HEX BITS RECVO 

MEX BITS DID NOT INCREMENT AS 

'EXPCTD' WHEN RKBA OVERFLOWED. 

NOTE THAT BIT POSITION 4 6 5 

REFLECT MEX BITS ( 1 IN THE 

ERROR MESSAGE, 

GET RKER 

MASK HCE,DLT,NXM BIT, IF SET 

BRANCH IF REST OF RKER CLP 

MASK NOH-MCE BITS 

THIS IS THE EXPCTD RKER 

GET RKER RECVD 

ERROR IN RKER. IT SHOULD 

BE AS EXPECTED IN 

ERROR MESSAGE 

INCREMENT TO NXT HEX BIT 

HAVE U CHKD THE MEX BITS 4 TIMES? 

IF NOT, LUP BACK 



SI TRARSrCK FROM DISK TO TTY 

!• THIS TEST eOCCM THE HIGH ORDER BITS OP THE ADDRESS 
I* LINES. FIRST A ONE WORD (100) IS WRITTEN ON SECTOR, 
>• 2, CYL 0. THCM IT IS READ BACK, BUT THE NPR IS DONE 
»» NOT TO THE HENORT, BUT THE TELETYPE BUFFER (TKS 177560) 
I* AND IT CHECRKD THAT THE WORD WAS RECIEVGD CORRECTLY. 
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4771 








4772 








4773 








4774 


017236 


000004 




477S 


01 7210 


012737 


00000] 


4776 








4777 








4779 








4779 








47S0 








4781 








4792 


017246 


012737 


01 7270 


47n3 


017254 


005737 


177700 


4794 


017260 


012737 


004462 


4795 








4796 


017266 


P00520 




4797 


017270 


022626 




4798 


017272 


012737 


004462 


4789 


017300 


012746 


000 340 


4790 


017304 


012746 


017312 


4791 


017310 


000002 




4792 


017312 






4793 


017312 


013 700 


001332 


4794 


017316 


104413 




4791 








4796 








4797 








479'' 








4799 








4900 








4801 








4802 








4903 








4804 


017320 


012701 


033740 


4905 


IM 7324 


013704 


001336 


1906 


ni7n0 


012711 


000100 


4807 


017334 


012777 


177777 


19«9 


017342 


013702 


001350 


4aH9 


l<| 7346 


0527*»2 


000007 


49| >< 


H17352 


310277 


161762 


491 1 


«17356 


010114 




4fl| 2 


017360 


012710 


008003 


48t 3 


017364 


00500 3 






(117366 


105710 




4t)l5 


017170 


100410 




4<)|6 


017372 


009203 




4'!| 7 


017 374 


001374 




4418 


017376 


004737 


020702 


4dl9 


017402 


010237 


001202 




(•17406 


1 04416 




IB7I 


017410 


104031 












4^21 


017412 


012777 


1 77777 




017420 


010277 


161714 


1825 


017431 


013714 


m\ 144 


4?76 


k)1741H 


11*1507 7 


161510 



27(1006) 04-C)CT-76 1«I06 PAGE 88 

T53 TRANSFER FROM DISK TO TTY 



1«IF IT IS NOT, AN ERROR IS REPORTED. 
^•SKIPPED ON AN U/05. 



THIS TEST IS 



161714 3SI 



SCOPE 
HOV 



HOV *S(,0>4 

TST M177Te0 
MOV »H«DTM0,»I4 



BR 

CMP 

HOV 

MOV 

MOV 

RTI 



TST94 

(SP)»,(8P)* 
*BA0rH0,*l4 
1348, -(SP) 
•64t,-(8P) 



MOV RKCS,R0 
CNT. RESET 



;iDO I ITERATION 

JTHIS CODE KINDS OUT IF THE CPU 

lis AN 11/05 OR ELSE. 

;0N AN U/05, R0 (177700) CAN BE 

;A0ORE8SED AS A MEMORY LOCATION, BUT 

jON ANY OTHER CPU IF 177700 IS RFrFPENCE 

|A TIME OUT WILL OCCUR. 

J SET UP TIME OUT VECTOR 

IREPERENCE R0 

|R0 HAS REFFRCNCED W/O TIMEOUT 
IHENCE 11/0S 
SISKIP THIS TEST 
JRESTOPE STACK POINTER 
jRESTORE TIMEOUT VECTOR 



>G0, 00 CONTROL RESET 
ITHIS IS A CULL FOR THE 'CMTRL- 
JRESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
I IF THE 'CNTRL ROY' DOES NOT SIT 
IAN ERROR IS REPORTED. NOTE THAI 
;THt PC IN ERROR MESSAGE IS THE 
IPC WHERE 'CNT. RESET' IS LOCATED. 
ITHIS IS A VERY BASIC ERR6 IF IT 
lOCCURS CO BACK TO TEST 10 



MOV 


•OUTBUP,Rt 




HOV 


RKBA.R4 




MOV 


1100. fRl 


(WRITE THIS WORD 


MOV 


»•! ,(IPKHC 


jWRITE 1 WORD 


HOV 


DRIVAD,R2 




BIS 


• 2.R2 


;0N CYL 0. SEC 2 


HOV 


R2,»RKDA 




MOV 


R1,»R4 


(FROM THIS XEMORY LOC 


MOV 


*3,8R0 


IWPITE. GO 


CLR 


R3 




TSTB 


• R0 




BMI 


21 




INC 


RJ 




BNE 


11 




JSR 


PC,GT4RG 


;OET RKCS, ER, DS 


MOV 


R2.IREG10 


•.GET THE STARTING AORES 


BRKDA4 




iBREAK IT INTO DRV «, CYL, SUR, SEC 


ERROR 


31 


;CNTPL RDY DID NOT SET AFTER 
;NPrTE OF- 1 WORD ON CYL 0. SEC 2 


MOV 




jREAD 1 WOBr 


MOV 


R2.ARKDA 


;FPOM SEC 2> CYL 


MOV 


•TKS.»P4 


(INTO TTY STA"S REGISTER 


CLR 


• »IltS 


(CLEAR TTY KEY BSD STATUS BEG 
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4827 








4823 


017434 


012710 


000065 


4829 


017440 


005003 




4830 


017443 


105710 




4831 


017444 


100410 




4832 


017446 


005203 




4833 


017450 


001374 




4834 


017452 


8^4737 


S20732 


4S3S 


017456 


010237 


001202 


4836 


017462 


104416 




4837 


017464 


104045 




4838 








4839 








4840 








4841 








4842 


017466 


032737 


000100 


4843 








4844 


017474 


001015 




4845 


017476 


01770S 


161442 


4846 


017502 


010537 


001164 


4847 


017506 


052705 


000100 


4848 


017512 


010537 


001162 


4849 


017516 


011437 


001166 


48S0 


017522 


011037 


801170 


48S1 


017S26 


104115 




4852 








4853 








4854 








4855 








4956 








4857 








4858 








4859 








4860 








4861 








4862 








4863 








4964 








4865 








4866 








4867 








4868 








4869 


017530 


000004 




4870 


017532 


012737 


000005 


4871 


017S10 


liH421 




4972 


017S42 


011)5001 




4873 


017544 


01 2702 


000002 


4874 








4875 


017550 


012737 


017562 


4876 








4877 








4878 


017556 


01 3705 


001336 


4979 


017562 


004737 


021344 


4980 


017566 


104016 




4981 


017570 


104413 




4882 


017572 


012777 


177777 



iREAO, NEX BITS SET 



iCET THE STARTING ADRES 

rBPEAK IT INTO DRfr CYLr BUPr SEC« 

iCNTRli RDY DIDB't SET AriER 

>READ OF 1 WORD FROM CYL 0r SEC 2. 

I IB EROR MSSE, <0SK-ADRB8> GIVES 

;ADRES WHERE READ BEGAN, *RKDA' 

;GI¥E8 CONTENTS OF PKD* AT TIME Of EROR 

;tfAS THE COPRECT WORD READ INTO 

I THE TTY STATUS REGISTER? 

MIES* EXIT 

I GET THE WORD RECVD FROM DISK 

(THIS WORD NAS EXPCTD 
iSTOf^E EXPCTD WORD 
I GET RKBA 

I GET RKCS 

;OATA ERROR. A ONE WORD (100) 
;NPR HAS TRIED FROM DISK TO 
>TTY KEYBOARD STATUS REGISTER 
IC177S6) . SIT 6 SHOULD HAVE BBEN 
; SET AS RESULT OF THIS 
JBUT IT WAS NOT 



t t •••••«•••••«•••••»»•»«•••••••••»•»•»«»••*«***••••••*•••*•••*«•* 

(•TEST 54 CHECK THAT RKBA CAN COUNT CORRECTLY 

(•THIS TEST CHECKS THAT RKBA CAN COUNT CORRECTLY. IT IS SET 
(•TO THE DESIRED INITIAL VALUE, THEN A ONE WORD WRITE CHECK 
(•IS TRIED* WITH HEX (MEMORY EXTENSION) BITS SET. IF THERE IS 
(•NO MEMORY PRESENT (FOR CERTAIN BUS ADDRCSSES)« THERE 
(•WILL BE AN NXH ERROR STOPPING CONTROLLER ACTION, BUT RKBA 
(•SHOULD HAVE INCREMENTED BY 1 FROM ITS INITIAL VALUE. IF IT 
(•HAS NOT/ AN ERROR IS REPORTED. 

( I »•••••••••••••••••••••••»••••»•••••»•••••••••»••••••••••••#•••• 

TST54« SCOPE 

> (DO 5 ITERATIONS 

(CHECK IF SIN SET, IF SET DRV RESET 
(INITIALIZE (VALUE OF RKBA) 
(INITIALIZE (INCMNTD VALUE OF RKBA) 



MOV 

CLR 

TSTB 

BMI 

INC 

BNE 

JSR 

MOV 

BRKDA4 
ERROR 



BIT 

BNE 
MOV 
MOV 
BIS 
NOV 
MOV 
MOV 
ERROR 



465, •RB 

R3 

RR0 

4* 

R3 

3t 

PC,GT4RG 
RSrSREGlB 

45 



(100,STKS 

TST54 

»STKS,R5 

R5,fRESl 

1100, RS 

R5,tRE60 

0R4,SREG2 

•R0,SREG3 

115 



NOV aSrlTIHES 
TST.6IN 

Rl 

»2,R2 



CLR 
MOV 



MOV 



•ItrtLPCRR 



RKBA,R5 
PC.TSTRWS 



MOV 
JSR 
ERROR 16 
CNT. RESET 
MOV »-l,9RKWC 



(SET RETURN ADRES FOR LUPING 
(ON EROR 



(WAIT FOR R/W/S ROY 
JR/W/S RDY IS HOT SET 
(00 CONTROL RESET 
(WRITE CHK 1 WORD 
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4883 


017600 


010115 


4984 


017602 


013777 


4985 


017610 


012777 


4996 


017616 


104412 


4987 






4988 


017620 


104065 


4999 






»990 






4991 






4992 


017622 


005237 


4993 


017626 


001417 


4994 






4995 


01763i» 


020215 


4 996 






4897 


017632 


001414 


4898 


0176)4 


010137 


4899 


M1764a 


011537 


4900 


1 76 4 4 


104017 


4901 






4902 






4<>»3 






4904 






49i}5 






4906 






49n7 






49n8 


017646 


0052)7 


49H9 


017652 


001405 


491 a 


«17654 


0602i11 


491 1 


H17656 


010102 


4912 


017660 


0627612 


491 } 


017664 


001 116 


441 1 






1915 


417666 




4914 






491 7 






4J1 9 












492f) 






♦ 971 






4>»2? 






4123 






4<J?4 


H176'i6 




4925 


ai767« 


0127)7 


4926 


017676 


005757 


4127 


H17 702 


0Ml4i')1 


4128 


017704 


an»5)7 


H29 


0177m 


1«4! 2i* 


493H 






4911 


017712 




4932 






4931 






4914 






4935 






4936 






4917 






493« 







001350 
000067 



161530 
161514 



001 162 
001 161 



MOV 
MOV 
MOV 

CHKCRDY 
ERROR 



INC 
BCQ 

CHP 

BEQ 
MOV 
MOV 
ERROR 



INC 
BEO 
ADD 
MOV 
ADD 
BNE 



R1,0RS (THIS BUS ADRES 
ORIVAD,0RKDA (SET DISK AORES 



»67,|1RKCS 



INDXl 
5> 

R2.BP5 
41 

R1,«REG0 
fR5,*Re61 

17 



INDX2 
51 

R2,R1 
R1,R2 
*2,R2 
II 



>(•••»« 

; •TEST 



; ) ••••« 

TST55: 



4l«4 



I»THI 
I 'TO 

I 'DK rv 
>«»*««, 

SCOPE 

MOV 

TST 

HKQ 

JSR 

ERROR 



(WRITE CHECK, GO, HEX BITS SET 
(GO CHECK IF CONTROL RDY IS SET 
(IF SO/ SKIP THK EROR MESSAGE, 
(CNTRL RDY DID "OT SET AFTER 
(WRT CHK WAS TRIED TO NXM LOC 
(U MIGHT WANT TO USE TESTS 
(CHECKING HEX BITS I NXM. 
(ALLOW ONLY 5 ERRORS OF ABOVE KIND 



;OID RKBA INCREMENT BY 1 FROM 

(ITS INITIAL VALUET 

(YES/ BRANCH 

(GET EXPCTD RKBA 

(GET RKBA RECVD 

(RKBA DID NOT INCREMENT BY 

(1 FROM ITS INITIAL VALUE, 

(ONE WORD WRT CHK MAS TRIED 

(TO A NXM LOCATION, THERE 

(WILL BE AN NXM ERROR, 

(BUT STILL RKBA SHOULD 

(INCREMENT BY 1 FROM ITS 

(INITIAL VALUE. 

(ALLOW ONLY 5 ERRORS OF 

(THE ABOVE KIND 

(SET NXT VALUE OF RKBA 

(SET EXPCTO VALUE OF RKBA 
(ALL DONE? 

(DUMMY EXIT POINT 



»•«•«••*•**••*••••••••»•••••#••«•*««•••»«••«•••»»»«» 

CHKCK FOB RK-05r 
S TEST CHECKS RK-05r TYPE DRIVES 
INSURE THAI IF SEEKS ARE ISSUED ON ONE 
VE, THE OTHER DRIVE BECOMES BUSY 

•••••*••»•••••••••••••«•••••••••••»•*•*•»•*•«•«»•••« 



•1. (TIMES 



Ki.rCHECK 
12.) 



((DO 1 IIERAIION 

(SEE IF RK-05E 

(NOT r 

!5FE IF OTHER GOES BUSY 



; (••»<«••»•>»«»«•• •••••••»«•••••••••* !•••••« *«•»•••••«•»••»•••••• 

;»TLaT 55 FND OE PHOGRaM 

(•THIS IS NOT A TFST, BUT A LINKAGE t-ROVlDED TO PERFORM 
;»THF ABOVF SU9-TI-STS FOR ALL DRIVES THAT ARE PRESENT, 
I»hOTK TH4T THE Nh XT TEST- HARDWARE POLLING LOGIC- 
j»TS nnNf USING AIM. THE OHIVES THAT APE INDICATED PRESENT. 
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see 



4919 
4940 
4941 
4943 
4943 
4944 
494S 
4946 
4947 
4948 
4949 
4950 
4951 
49S3 
4993 
4934 
49S5 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4966 
4969 
497H 
4971 



»»D0 NOT LOOP ON THIS 'TEST'. 



017713 
017714 
017733 

017736 
017732 
017734 

017743 
017744 
017752 



000004 
012737 
005237 

004737 
104036 
033737 

001405 
0627J7 
000137 



000001 
001353 



021413 
001412 



020000 
l»04766 



001 206 



TSTS6I 



001352 BTEOPI 



001350 



SCOPE 

NOV 

INC 

JSR 

eppoR 

CMP 

BEQ 
ADD 
JNP 



017756 005037 001112 



Itl 



•l.tTIHES 

DRVDON 

PC'DRESET 
26 

OR I VS. DRVDON 
It 

t3000e>DRIVAD 
NOORV 

tCRTTL 



J 100 I nePATiON 

I INCREMENT THE COUNT FOR THE NUMBER 
jOr DRIVES THAT ARC CHECKED 
iRESET THE DRIVE 

»R/W/S DIDN'T SET AFTER ORIVt RESET 
JHAVE U TESTED khl THE DRIVEB 
I THAT ARE PRESENT? 
IIF YES> EXIT 

lADRES THE HXT POSSIBLE ORIVt 
JGO BACK AND TEST THE NEXT 
(DRIVE PRESENT 



f*TEST 57 CHECK HARDWARE POLLING LOGIC 

|»THIS TEST CHECKS THE HARO«ABE POLL LOGIC, USING ALL THE DRIVES 
I 'PRESENT ON THE RKU, ATLEAST TWO DRIVES SHOULD BE PRESENT 
I •TO DO A MEANIHBFUL HARDMARE POLL. SEQUENCE OF OPERATIONS IS 
>*AS FOLImOHINGI 

(•1) NUHBER of DRIVES ON THE RKll IS ASCERTAINED. 

;»a) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), lEEK IS INITIATED 
>*FOR ONE DRIVE AT A TIKE. ONLY WHEN 'CNTRL RDY' It SET. 

>»3) CPU PRIORItl IS DROPPED TO 4 SO THAT RKll CAM INTERRUPT. THE INCOMING 
»»I«TERRUPT IS PROCESSED TO CHECK IF IT NAS DUE TO 'SEEK DONE' Bit 
(•ONE OF THE DRIVES. 

1*4) IF BT THE EMO OF THE SET TIME A DRIVE HAS NOT INTERRUPTED 
{»AN ERROR HESSACE IS GIVEN INDICATING HHICH DRIVE DID NOT 
(•INTERRUPT AFTER SEER HAS DONE. 
( (•••••••»••••••••••••••••••••»•••••••••••••»••••••»••••••••••••• 



4972 


017762 


000004 




TST971 


SCOPE 






4973 


017764 


012737 


000005 


001306 


MOV 


(5.ITIMEt 


((DO 5 ITERATIONS 


4974 


017772 


005237 


001440 




INC 


SIIVET 


(FOUNR PKOSF YETT 


4975 


017776 


001002 






BNE 


3S( 


(YES 


4976 


020000 


004737 


025202 




JSR 


PC.SIZEF 


(FIND WHICH APE PK-05F 


4977 


030004 


005037 


001436 


35(1 


CLR 


PHTDRV 


jNUMBER OF ACTUAL DRIVES 


4778 


020010 


012700 


001414 




MOV 


lORIVB.RO 


(TABLE 


4979 


020014 


005710 




3381 


T5T 


(R0) 


(DRIVE HERE+7 


4980 


030016 


001405 






BCO 


33( 


(NO 


4981 


030020 


0t)5237 


001436 




INC 


PHYDRV 


(COUNT DRIVE 


4982 


030024 


005710 






TST 


(R0) 


JRK05F7 


4983 


020036 


100001 






BPL 


338 


(NO 


4904 


1130030 


005720 






TST 


(RO)* 


(OONT COl'NT F TWICE 


4985 


020032 


005721-1 




33(1 


TST 


(R«)t (NEXT 


DRIVE 


4986 


020034 


020037 


001411 




C"P 


R0,IORIV7«1 


(ALL YET 


4987 


430040 


002765 






BLI 


338 


(NO 


4988 


t)20043 


0i»5aj7 


001406 




CLP 


ODOEVN 


(EVEN DRIVES FIRST IF F 


4989 


030046 


0t»5737 


0ti]412 


T56i 


1ST 


ORIVS 


(ANY DRIVES PRESENT? 


4490 


020052 


001003 






BNE 


30( 


(YES 


4991 


020094 


000137 


070560 




JMP 


(COP 


(NO 


4992 


020060 


005217 


001434 


20(1 


INC 


T56FLG 




4993 


020064 


011700 


001132 




MOV 


RKCSf R0 




1994 


020070 


0>45017 


001156 




CLR 


INOXl 


(FLAG TO INDICATE! 
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4995 
4996 
4997 
4999 
4999 
5000 
5001 
51102 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5310 
5011 
5012 
5t)| ) 
5H14 
5015 
5016 
5017 
5018 
50119 
5020 
5021 
5032 
5021 
5024 
5025 
5036 
5027 
5038 
5029 
5010 
5011 
5012 
5013 
5014 
5315 
5016 
5017 
5018 
5019 
5040 
5041 
5043 
5043 
5044 
5045 
5046 
5347 
5041 
5049 
5050 



020074 035037 0tM 160 



020100 10441) 



((IND)(i) = 3 POLLING DONE AFTER ALL 

jDRIVES seek TO CYL 
j(INOXn>l POLLING DONE AFTER ALL 

(DRIVES SEEK TO CYL 4 
(FLAG INDICATING TYPE OF INTERRUPT 
(SET TO NON-ZERO TO INDICATE 
(THAT THE INTERRUPT IS DOE TO 
(SEEK DONE 

IGO. DO CONTROL RESET 
(THIS IS A CALL FOR THE 'CNTRL- 
IRESET' ROUTINE. A CONTROL RESET IS 
(ISSUED AND AFTER A CERTAIN TIME 
(IF THE 'CNTRL RDY' DOES NOT SET 
IAN ERROR IS REPORTED. NOTE THAT 
(THE PC IN EPROR HESSACE IS THE 
(PC WHERE 'CNT. RESET' IS LOCATED. 
(THIS IS A VERY BASIC ERRfc IF IT 
(OCCURS GO BACK TO TEST 10 



020102 


0057)7 


001356 




I8T 


INOXl 


(PERFORMING SEEKS TO CYL 4 


020106 


001002 






BNE 


.+6 


(YES, BRANCH 


020110 


005002 






CLP 


R2 


(NO 


020112 


003403 






BR 


.+6 




020114 


012703 


000200 




MOV 


•200)R2 


(SET AORES FOR FOURTH CYLINDER 


020120 


012701 


001414 




MOV 


IDRIV0.R1 


(INITIALIEF POINTER 


020124 


017703 


177770 




MOV 


»-10,B3 


(SET COUNT FOR 8 DRIVES 


020130 


012705 


013240 




MOV 


I0UTBUF.R5 


(INITIALIZE POINTER TO INDICATOR 


020134 


005035 






CLR 


(R5) + 


(CLEAR OUT THE 8-HORO INDICATOR 


020136 


005303 






INC 


R3 


(AREA WHICH IS USED FOR DOING 


020140 


001 179 






BNE 


.-4 


(SOFTWARE POLLING LATER ON 


020143 


012703 


1 77770 




MOV 


(•10. R3 


(SET COUNT FOP 8 POSSIBLE DRIVES 


020146 


012709 


011240 




MOV 


«0UTBUF,R5 


(INITIALIZE POINTER TO INDICATOR 


020152 






1(1 






030153 


012746 


800140 




MOV 


(140, -(8P) 




020156 


012746 


020164 




MOV 


*64(.-(SP} 




020162 


000002 






RTl 






020164 






64(1 








020164 


032711 


000001 




BIT 


•BITe,(Rl) 


(IS THIS DRIVE PRESENT? 


020170 


001433 






BEO 


4( 


;TF NOT, BRANCH 


020172 


00571 1 






TST 


(Rl) 


;HK06F? 


020174 


100013 






BPL 


t7( 


(NO, CONTINUE 


020176 


032702 


020000 




BIT 


•8IT13.R3 


(DRIVE EVEN? 


020202 


001404 






BEO 


16( 


(YES 


020304 


005737 


001406 




TST 


ODOEVN 


(DO we WANT ODD? 


020210 


001433 






BEQ 


4( 


(NO, SO DO NOT TEST 


020212 


000403 






BR 


17t 


(ADD THIS DRIVE TO LIST 


030214 


005737 


001406 


16(1 


TST 


ODOEVN 


(DO WF WANT EVEN? 


030220 


001017 






BNE 


4( 


(NO, SO SKIP 


030322 


010215 




17({ 


MOV 


R2.(R5) 


(SET UP THIS WORD IN THE 
(INDICATOR AREA SHOWING THAT THIS 
(DRIVE (AS IN BITS 13-15 OF R3) 


020224 


042725 










(IS PRESENT 


017777 




BIC 


•17777, (R5)* 


CASK OUT UNWANTED SITS (CYL,SUR,i 


020230 


005004 






CLP 


R4 


0202)2 


105710 




2(1 


TSTB 


■ P0 


(fS CNTRI, RDY SET? 


0202)4 


100405 






8MI 


1» 


(YES, HRANCH 


0202)6 


005204 






INC 


R4 


(NO, WAIT FOP IT 
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SEd 0110 



50S1 


02§249 


001374 






8NE 


2( 


S052 


020242 


004737 


020702 




JSR 


PC>GT4RG 


J0SJ 


020246 


104021 






rRROR 


21 


9054 
9055 


020250 


010277 


161064 


3(1 


NOV 


R2,»RK0A 


5056 












I111>I>R0 


5057 


020294 


012710 


000111 




HO? 




020269 


005721 




4lt 


TST 


tmy* 




020262 


062702 


020000 




ADD 


•20000>R2 




020266 


009203 






INC 


R3 




020270 


001 330 






BNC 


11 
















5063 














5064 














5065 














5066 














5067 














5060 


020272 


005004 






CLR 


R4 


5069 


020274 


013702 


001402 


9*1 


NOV 


RKVEC>R2 


5070 


020300 


012722 


020332 




HOY 




5071 


020304 


012712 


000340 




HOV 


1340, (R2] 


5072 


020310 


013746 


001400 




NOV 


RKPKI,-(SP) 


5073 


020314 


012746 


020372 




MOV 


I18S,-(SP) 


5074 


020320 


000002 






RTl 




5075 


020322 


000240 




1811 


MOP 




5076 


020324 


009204 






IRC 


R4 


5077 


020326 


001379 






BNC 


18( 


5078 


020330 


000492 






BR 


IK 
















5t480 


020332 


022626 




611 


CMP 


(SP) + t(8P)'» 


508 1 


020334 


005737 


001 360 




TST 


INDX2 


51492 














5083 














5084 


020340 


001021 






BNE 


9( 


5005 














5086 


020342 


032710 


020000 




BIT 


• 200k)0r 8R0 


5097 


020346 


001403 






6EQ 


7( 


5088 


020350 


011037 


001162 




MOV 


• R0> tPEG0 


5089 


020394 


104076 






ERROR 


76 


5J90 














5091 














5^92 


020356 


017701 


160744 


7*1 


MOV 


*l>KOS< Rl 


3093 


020362 


032701 


160000 




BIT 


•160000>R1 


5094 


020366 


001403 






BEO 


S( 


5095 


020370 


010137 


001 162 




NOV 


R1((RCGU 


5096 


020374 


1040S0 






ERROR 


90 


5097 














5098 














$099 














5100 














5101 














5102 


020376 


005237 


001360 


8(1 


INC 


IN0X2 


5103 














5104 














5105 














5106 


820402 


000734 






SR 


5( 



J IF NAITED LONG REPORT ERROR 

(GO, GET RKCS.EP.DS.DA 
;CNTRL RDY DID NOT SET AriER ACCEPTING 
lADRES rROM PREVIOUS SEEK 
;A0RE8 this DRIVE, CII< OR CXL 4 
; (WHICHEVER THE CASE MAY BE) 
fSEEK,GO,IOE SET 
JNEXT DRIVE DATA 

lINCREHEHI DRIVE ADRES (BITS 15,14,13) 
»T0 NEXT ONE 

IBRANCH BACK IF ALL DRIVES ARE 
JNOT CHECKED TO SEE IF THE NEXT 
(DRIVE IS PRESENT {£ IF SO ISSUE A 
{SEEK TO IT) 

;BX NOH SEEKS HAVE BEEN ISSUED 
I TO ALL DRIVES PRESENT « POLLING 
(HAS BEGUN 



J SET ADRES FOR PKll TO INTERUPT 
;SET PSH ON INTERUPT 
;DROP CPU PRIORITY TO 4 SO THAT 
JRKII CAM INTERUPT 

>THI8 IS A TIME LOOP DURING 

; WHICH ALL DRIVES PRESENT SHOULD 

I INTERRUPT 

IBRANCH AND CHECK IF ALL AVAILABLE 

IDPIVES INTERRUPTED CORRCCTLT 

^RESTORE STACK POINTER 

I WAS THIS FIRST INTERRUPT 

fOUE TO 'ADRES ACK' AFTER INITIATION 

»0F SEEK? 

>IF TES, CHECK THE FOLLOWING 

»CHECK THAT SCP IS NOT SET 
t BRANCH IF SCP CLEAR 
I GET RKCS 

I AFTER THE FIRST INTERRUPT WHICH 
;IS DOE TO INITIATION OF SEEK, SCP 
(SHOULD NOT HAVE SET. IT DID 

JRKDS BITS 15*13 SHLOULD BE CLR 

tGET RKD8 

tSEEK, WITH IDE SET WAS ISSUED TO 
(ALL AVAILABLE DRIVES. THE FIRST 
(INTERUPT IS DUE TO SEEK INITIATED 
IBK FRST DRV. DRV ID BITS 13>15 
(SHOULD BE CLR AFTR THIS FRST INRUPT. 
(THEY HERE NOT IF THIS ERROR OCCURS. 
(SCT UP FLAG INDICATING 
(THAT THE FIRST INTERRUPT DUE 
;T0 INITIATION OF SEEK WAS 
(PROCESSED 

(SO BACK TO THE KAIT LOOP & WAIT 
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5107 








5108 


020404 


013703 


001436 


5109 


020410 


012705 


033240 


5110 


020414 


017701 


160706 


5111 


020420 


042701 


017777 


5112 








5113 








5114 








5115 








5116 








S117 








5118 


020424 


020125 




5119 


020426 


001411 




51J0 


020430 


009303 




5121 


020432 


001374 




5122 








5U3 








5124 








5125 


020434 


010146 




5126 


020436 


004737 


021106 


5127 


020442 


012637 


001 162 


5128 








5129 








5130 


020446 


104051 




51)1 








5132 








5133 


020450 


000401 




5114 


020452 


009245 




5135 








5116 








5137 








5138 


020454 


000707 




51 J9 


020456 


01 3703 


001436 


5140 


020462 


012709 


033240 


5141 








5142 


020466 


105715 




5143 


020470 


001006 




5144 


020472 


011546 




5145 


020474 


004737 


021106 


5146 


020500 


012637 


001162 


5147 








5148 


020904 


104092 




5149 








5150 


020906 


062705 


000002 


5151 


020512 


005303 




5152 


020514 


001364 




5153 








5154 


020916 


005737 


001356 


5155 


020922 


001004 




5156 


020524 


005237 


001356 


5157 


020530 


000137 


i><20074 


5158 








5159 








5160 








5161 








5162 









MOV 
HOV 
MOV 
• IC 



CMP 
BEO 
DEC 
BNE 



HOV 
JSR 
HOV 



BR 

MOV 

HOV 

T8TB 

BNE 
MOV 
JSR 
HOV 



ADD 
DEC 
BNE 

TST 
BNE 
INC 
JMP 



PHYDRV,R3 
«0UTBUF,R5 
»RKOS,Ri 
*17777,R1 



Rl,(R9}t 

10* 

R3 



R1,«(R6) 

PCSHFIRT 

CR6)4,IREG0 



10(+2 
•(R9) 



5* 

PHYDRViR3 
tOUTBUFfPS 

(R9) 
13* 

(R5),>(R6} 

PCSHFTRT 

(R6)*,SREG0 



«2,R5 

R3 

14* 

INDXl 
TSTENO 
INDXl 
15« 



FOR NEXT INTERRUPT FROM RKll 

SET COUNT or * OF DRIVES PRESENT 

INITIALIZE POINTER 

GET RKOS 

MASK BITS 0-12 

THE FOLLOWING CODE IS A SOFTWARE 
POLL WHICH FINOS OUT WHICH DRIVE 
CAUSED THE PRESENT INTERRUPT 
AND SETS UP A FLAG BIT FOR 
THE DRIVE I, INDICATING THAT 
THIS DRIVE * INTERRUPTED 

BRANCH IF INTERRUPTING DRIVE WAS FOUND 
HAVE V CHKD ALL ORIVS PRESENTT 
IF MOT LUP BAK t CHK 
REPORT ERROR IF THE INTERRUPTING 
DRIVE I (AS IN RKDS 13-19) HAS NOT 
ANY ONE OF THOSE THAT ARE PRESENT 
GET WORD TO e SHFTD RT 
CO SHIFT IT 

THIS DRIVE I HAS RECVO IN RKDS AS 
THE INTERRUPTING DRIVE, BUT THIS 
DRIVE IS NOT PHY8ICALY PRESENT 
RKDS INDICATES AN INTERRUPTING 
DRIVE I (DURING H'WARE POLL) BUT 
THAT DRIVE IS ACTUALLY NOT PRESENT 

SET UP FLAG INDICATING THAT 
THE INTERRUPT FOR THIS DRIVE 
(AFTER IT HAD COMPLETED ITS SEEK) 
WAS PROCESSED 

GO BAK K WAIT FOR FURTHER IHTRUPTS 
GET I OF DRIVES 
INITIALIZE POINTER 

DID THIS DRIVE INTERRUPT? 

YES, BRANCH 

GET THIS DRIVE « 

SHIFT IT TO THE RIGHT 

THIS DRIVE « DID HOT INTERRUPT 

DURING H'WARE POLL 

DRIVE * (AS IN (RE60) DID NOT 

INTERRUPT DURING HARDWARE POLL 

INCREMENT POINTER TO THE NEXT FLAG 

CHKD FOR ALL ORIVEST 

IF NOT LUP BACK 

DONE POLLING FOR SEEKS TO CYL 3127 

IF YES, EXIT 

IF HOT, INCREMENT FLAG 

GO DO IT 

INDICATOR TABLE 

THE 8-*0RD INDICATOR TABLE USED IN 
(THE FORMER PART OF THIS SUB-TEST 
(IS LOCATED STARTING AT 'OUTBUF'. 
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SEQ 0112 



St61 








S164 








stss 








5166 








Si67 








st6a 








5169 








9170 








5171 








9172 








517) 








9174 








9179 








9176 








5177 








5179 








5179 








5190 








5191 








5193 


0309)4 


009237 


001406 


9183 


930940 


022737 


000002 


5184 


030946 


001402 




5189 


030990 


000137 


030046 


9186 


930954 


009037 


001434 


5187 








5198 








9199 








5190 








5191 








5193 








5193 








5194 








5195 








5196 








9197 








5198 


030960 






5199 


030960 


000004 




5300 


030963 


009037 


001103 


5201 


030966 


005037 


001306 


5202 


030972 


005337 


001100 


5203 


030576 


047737 


100000 


5204 


030604 


005337 




5209 


020606 


000001 




5206 


030610 


003033 




5207 


030613 


0137)7 




5208 


030614 


000001 




5209 


020616 


020606 




5210 


030630 


104401 


020669 


5211 


020624 


013746 


001100 


5312 


020630 


1044OS 




5213 


0206)2 


104401 


030663 


5314 


0206)6 


013700 


000043 


5319 


020643 


001409 




9316 


020644 


000009 




9317 


020646 


004710 




9318 


020690 


000240 





;HOPDS APE SET UP TO IHOICATE 
;PRESBNCE OF A DRIVE CGI IP 
IDKIVES 0>lr3 ARE PRESENT* IT NIIL 
(LOOK LIKE 

lOOTBOFI 000000 BITS 13. 14. 19 

, 030000 CORTAIM THE 

. 040000 DRIVE NO. 

, 000000 REST O'S 

J WHEN A DRIVE INTERRUPTS AFTER SEEK 

rIS DONE BIT or THE CORRKSPOMDIVC 

I INDICATOR NORD IS SET. THUS FOR THE 

(ABOVE EXAMPLE IF ALL DRIVES INTERRUPTED 

(CORRECTLY THEN IT HILL LOOK IIKEI 

I 1381 000001 BIT SET 

, 020001 TO INDICATE 

, 040001 DR INTERRUPTED 

I 000000 REST 0*S 



T8TEHDI INC 

C«P 
BEQ 
JHP 

2111 CbR 



OOOEVN 

t3>00DEVN 

311 

T56 

TSerLC 



JNON ODD IF RK05F 
(SEE IF CONE 
{ALL DONE 
(TEST AGAIN 



.5BTTL END OF PASS ROUTINE 



1 1 •••»»••»••••••••••••••••••«#•»•»••••••••••»••"•"••••••' 

(•INCREMENT THE PASS NUMBER (SPASS) 

(VINDICATE EMO-Or-PROCRAH AFTER 1 PASSES THRU THE PROGRAM 
(•TTPE 'END PASS IXXXXX" (NHERF. XXXXX It A DECIMAL NUMBER) 
(«IF THERES A MONITOR CO TO IT 
(•IF THERE ISN'T JUMP TO 8T4 

9E0PI 



SCOPE 






CLR 


8TSTNM 


((EERO THE TEST NUMBER 


CLR 


•TIMES 


(IZERO THE NUMBER OF ITERATIONS 


INC 


• PASS 


((INCREMENT THE PASS NUMBF^R 


BIC 


tt 00000, IPASS 


((DON'T ALLON A NEC, NUNBER 


DEC 


(PC) + 


((LOOP? 


.WORD 


1 




BGT 


•D0A6H 


(»YE8 


NOV 


(PC)*»9(PC)+ 


((RESTORE COUNTER 


«HORO 


1 




8E0PCT 






TYPE 


(•ENDMG 


((TYPE "END PASS »" 


NOV 


•PA8S,-(SP) 


((SAVE SPASS FOR TYPEOUT 


TYPDS 




(iCO TYPE— DECIMAL ASCII NITH SIGN 


TYPE 


,IENULL 


((TYPE A NULL CHARACTER 


HOY 


9143, RO 


((GET MONITOR ADDRESS 


BEO 


•DOAGH 


((BRANCH IF NO MONITOR 


RESET 




((CLEAR THE WORLD 


J8R 


PC,(R0} 


((GO TO MONITOR 


NOP 




((SAVE ROOM 
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5319 
5220 
5321 
9332 
9333 
9324 
9325 
5326 
9337 
9229 
9229 
9230 
9331 
9333 
9333 
9234 
5315 
5316 
5237 
53)8 
5219 
5340 
5341 
9342 
9343 
9344 
9349 
9346 
9347 
5349 
9349 
5350 
5291 
9393 
93S3 
9354 
5355 
S2J6 
5257 
5298 
5251 
5360 
5261 
5363 
5363 
9264 
5269 
5366 
5267 
5268 
5269 
5279 
1271 
5273 
5271 
5274 



■30693 
020694 
020656 
030696 
030660 
020662 
030669 
020672 
020700 



000240 
000340 

000137 
004404 
377 
019 
090040 
000043 



377 
042413 
091901 



000 
043116 
030121 



NOP 
NOP 

•DdACNt 

JMP 

SRTNAOI .HORD 
•EttULLI .BYTE 
•EHOMCI .ASCII 



»(PC)* 
8T4 

•1,«1,0 



((FOR 
((ACTtl 



( IRCTORN 



(INULL CHARACTER STRING 



<tS><12>/BND PASS •/ 



.SBTTL CT2PGI ROUTINE FOR GETTING RKCS,RKER 

tSUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS. RKCR 

(TO tNECO, •RECl RESPECTIVELY BEFORE TYPING OUT AN ERROR MESSAGE. 

ICALLI J8R PC,CT3RG 

.SBTTL GT3RGI ROUTINE FOR GETTING RKCS, RKER, RKDS 

{GT3RG 

(SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER, RKDS 
(TO IREGO, SRECl, 8RECI RESPECTIVELY BEFORE TYPING OUT AN 
(ERROR MESSAGE. 
(CALL! J8R PC,GT3RG 

.8BTTL GT4PGI ROUTINE FOR GETTING RKCS, RKER, RKD8> RKOA 

(GT4RG 

(SUBROUTINE FOR TRANSFERRING CONTENTS OF RKCS, RKER, RKDS 
(PKDA TO tRCG0, (RECl, •RFG2, (PEGS RESPECTIVELY BEFORE 
(TYPING OUT AN ERROR MESSAGE. 











ICALLI 


J8R 


PC,GT4RC 






020703 


017737 


1694)3 


001170 


GT4RSI 


MOV 


9RKDA,tREG3 


(GET 


RKDA 


030710 


917717 


16)413 


001166 


GT3RGI 


MOV 


•RK0S,IREC3 


(GET 


RKDS 


020716 


917737 


160406 


901164 


GT3RGI 


MOV 


9RKER,(REGt 


(GET 


RKER 


030724 


917737 


169403 


901162 




MOV 


•RKC8,tREG0 






020732 


000207 








RTS 


PC 







.SBTTL TYERMI SPECIAL ERROR ME8SAGF ROUTINE 

(TYERM 

(THIS HOUTINF- lYPFS OUT 'EROR AT PC»X' 

IX IS THE PC WHERE THE EXPLANATION AS TD «H«T HAPPENED IS GIVEN, 
;IS USEB ONLY FOR Mn«l-M»NyAti MOBE Of THE POoCRAH, 
JCALUI JSP TYERH 



THIS ROUTINE 
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SEQ 0114 



5275 


•20734 






5276 


0207)4 


104401 


020742 


8277 


030740 


•■0406 




827* 








8279 


•30786 






52ae 


030786 


•10346 




S2«l 


e3^76a 


104402 




52B2 


03*762 


0B0307 




8283 








82S4 








S28S 








8286 








5287 








8288 








5289 








8290 








5291 








5292 








8299 








5294 








8298 








5296 








5297 








5298 








5299 








5)00 








S3«l 








51<»2 








5)0) 








5)l»4 








S)a5 








5)«I6 








5)»7 


020764 


010046 




5JH8 


020766 


013700 


001172 


5)09 


020772 


000403 




5)10 








5)11 


020774 


010046 




5)12 


•30776 


B12700 


001202 


531) 








5)14 


021002 


032777 


020000 


5)15 


021010 


001034 




5)16 








5)1 7 


021012 


010146 




5318 


021014 


010246 




5)19 


031316 


01)701 


001203 


5)20 








5321 


021>422 


043701 


177760 


5)22 


021026 


010140 




5)2) 


0210)0 


013701 


001282 


5)24 


021^)4 


006201 




5)25 


0210)6 


006201 




5)26 


021040 


006201 




8)27 


021042 


006201 




5)28 


021044 


•10102 




5)29 


021046 


042702 


177776 


SI).) 


021052 


010240 





l|65*l 
6411 



,688 llTTPE ASCIZ STRING 

648 ;reCT OVER THE ASCIZ 

<18><12>/ERORrPC"/ 



T!fPE 
BR 

.ASCIZ 

NOV 

TIPOC 

RTS 



.SPTTL 9DA0# eDA4l 



BPRAK DISK ADDRESS INTO SCC> SUR< CYL> DRIVE 



|BDA0i BDA4 

ITHM ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO DRIVE »» 
jCTHNOEB •» SURrACe. sector ». the routine is called Bt USING EITHER 
|Bl(KOA0 OR BPKDA4, BOTH BEING 'TRAP' IHSTRUCTIOS WITH THEIR LOWER BYTES 
iEKODCO TO PROVIDE INDEXING TO •8DA0' OR 'BDA4', BEFORE CALLING 
itHE ROUTINE THE 61815 ADDRESS WHICH IS TO BE BROKEN AS A80VE 
lis DEPOSITED IN (RBGIO. 

BRK0A4 PUTS THE 

DRIVE • INTO tREG4 
CYLINDER « INTO 8REG5 
SURFACE » INTO $REG6 
SECTOR » INTO SREG7 
BRK0A4 



j'BBKDAa' PUTS THE 
>DRIVE » INTO IRECa 
;CrLINDER » INTO «REGi 
r SURFACE • INTO SREGS 
(SECTOR • INTO IREGI 
tCkLLi BRKDAe 



BDA0I 

BDA4I 

160130 BDARI 



NOV 


R0f(8P) 


;PUSH R0 ONTO THE STACK 






MOV 


l8REC3t3iR0 


JSET UP POINTER 






BR 


BOAR 








MOV 


R0.«(SP) 


JPUSH R0 ONTO THE STACK 






NOV 


ttRt«7*3«Re 


jSET UP POINTER 






BIT 


820000, 0SMP 


IINHIBIT TVPEOUTT 






BNE 


38 


»YES# BRANCH TO EXIT POINT 






HOV 


R1.-(6P) 


IPUSH Rl ON STACK 






NOV 


R2>>(SP) 


IPUSH R2 ON STACK 






MOV 


8RCO10>R1 


JGET THE ADDRESS KHICH 










(HAS TO BE BROKEN 






BIC 


f 177760, Rl 


JEXTRACT SECTOR BITS 0-3 






MOV 


R1,-(R0) 


(MOVE SECTOR BITS TO 8REG3 


OR 


8REG7 


MOV 


8REG10«R1 


IGET THE DSK-ADRES TO BE BROKEN 


«SR 


Rl 


(SHIFT RIGHT 4 TIMES 






ASR 


Rl 








ASR 


Rl 








ASR 


Rl 








MOV 


R1,R2 


(STORE THIS 






etc 


•17777S,R2 


(EXTRACCT THE SURFACE BIT 






lOV 


P2#-(P3) 


;MOVE SURFACE BIT TO 8REC3 


OR 


IRE66 



MAINDEC 


-1 1-OZRKK-O 
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08:47 EDA0 


. B0A4i 


BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE 


5331 


021084 


006201 




ASR 


PI 




5))2 


021ia56 


010102 




MOV 


RlrR2 


(STORE IT 


5))) 


021060 


043702 


177400 


BIC 


«t77400,R2 


(EXTRACT THE CYLINDER BITS 


5)34 


021064 


010240 




HOV 


R2.-(R0) 


(MOVE CYLINDER BITS TO 8REG1 OR 8REG5 


5))5 


031<«66 


000301 




SWAB 


HI 


ISWAB HI-LO BYTES 


5))6 


021070 


042701 


177770 


BIC 


•177770, Rl 


(EXTRACT THE DRIVE 1 


5)37 


021074 


010140 




MOV 


R1,-CP0) 


;MOVE DRIVE • TO 8REG0 OP 8REC4 


53)8 














5339 


021076 


012602 




MOV 


(SP)«,R2 


(BFSTORE R2 


5340 


021 100 


012601 




MOV 


(SP>t>Rl 


(RESTORE Rl 


5341 


0211«*2 


812600 


2$l 


MOV 


(SP)*,R0 


(RESTORE R0 FROM THE STACK 


5342 


021 104 


000002 




RTI 




(RETURN FROM INTERRUPT, EXIT THIS 


5343 












(ROUTINE 


5344 














5345 














5)46 














5)47 








.SBTTL 


SHFTRTt SHIFT 


RIGHT ROUTINE 



5)48 
5)49 
5350 
5351 
5)52 
5)53 
5)54 
5355 
5)56 
5)57 
5)5« 
5)59 
5)60 
5361 
8)62 
5)6) 
8)64 
8)65 
5366 
5367 
5368 
5369 
5)70 
8)71 
8)72 
5)7) 
5174 
5375 
5376 
5377 
5378 
5379 
5)80 
5)81 
5)82 
5)8) 
5)04 
5)85 
5)86 



(SHFTRT 

(THIS ROUTINE »HiriS A WORD TO THE RIGHT 1) TIMES. THE WORD TO BE SHIFTED 
»rs PUT ON THE STACK BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP 
(FROH THE 0TACK AFTER THE SHIFT HiS BEEN DONE. 



021106 013737 177763 021132 

021114 000341 

021116 006066 000002 

031122 008237 031133 

031126 001373 

0311)0 000307 

0311)2 000000 



tCALLi JSR 

SHFTRTI MOV 
CLC 

181 ROP 
INC 
BNE 
RTS 

281 



PC»SHFTRT 



3(R6) 

3S 

18 

PC 



rSET UP A COUNT OF 13 
(CLEAR THA C BIT 

(ROTATE RIGHT THE WORD TO B SHFTD 

(SHIFTED 13 TIMES? 

(IF NOT LUP BAK 6 SHIFT 

(EXIT FROH THIS SUBROUTINE 



.SBTTL 
.SBTTL 



:HKHEI CHECK FOR 'EPR'OR 
THKHEll CHECK FOR 'ERR'OP 



( (CHKHE 

(THIS ROUTINE CHECKS IF 'HE' OR 'EPP' BITS IN RKCS ARE SET, IF ANY OF THE 

(TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, OS, AND DA ARE SAVED AND A 

(RETURN IS HADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' C*tl. 

(AT THE TIME OF ENTRY 'DRIVAD' CONTAINS THE niSK ADDRESS WHICH IS 10 

(BE BROKEN DOWN INTO DRIVE •, CYLINDFR, SURFACF AND SECTOR f. THIS INFORMATION 

(18 SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET. 

(RETURN IS MADE TO SKIP THE ERROR MESSAGE, 

(CHKHEl 

(THIS ROUTINE CHECKS IF 'HE' OR 'ERR' BITS I •! RKCS ARE SET, IF ANY OF THE 
(TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, OS, AND OA ARE SAVED »ND A 
(RETURN 15 MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSP' CALL. 
(AT THE TIME OF ENTRY Rl CONTAINS THE DISK ADDRESS i*HICH IS TO BE BROKEN 
(DOWN INTO DRIVE », CYLINDER, SURFACE AND SECTOR •. THIS INFORMATION IS 
(SAVED TO BE USED LATER FOP ERROR PFPOPTINf;. IF THE BITS ARF, NOT SET, 
(RETURN IS MADE m SKIP THE ERROR VPSSAGF, 
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SEQ 01t6 



5)87 
5388 
S389 
S3M 
S191 
5393 
5393 
9394 
S19S 
5396 
5397 
5398 
5399 
54*0 
S4«l 
54<I3 
54B3 
5404 
5405 
5406 
5407 
5408 
5409 
54t0 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
54|9 
5430 
5431 
5423 
5423 
5424 
5425 
5426 
5437 
5428 
5129 
5430 
5411 
5432 
5433 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
9441 
5442 



021134 


010137 


001203 




f HKNEl i 


MOV 


Rlf tllEGt0 


031 140 


000403 










CHCl 


021143 


013737 


001350 


001303 


CHKHEI 


MOV 


ORIVADf 8REG10 


021190 


032777 


140000 


160154 


CHEll 


BIT 


•1 40000, tRKCS 


021196 


001467 








BED 


CPEtRN 


031160 


004737 


030702 






JSR 


PC,GT4RG 


021164 


104416 








BRKDIk4 




031166 


000307 








RTS 


PC 



021170 
031174 
021176 
031202 

031304 
021210 

021212 
021220 



021232 
021240 
021246 



013705 
005205 
020577 
001455 

010937 
104415 

017737 
104416 



021222 000207 



021234 005777 
021230 001442 



0177)7 
017717 
080207 



001390 
160136 

001203 

160122 



160076 
160071 



91162 
91164 



(SAVE THE DISK ADRES 



tSkVE THE DISK KDRES 

lis 'HE' OR 'ERR' BIT SET7 

I NO 

IGET RKCSfER#08, DA 
>C0 TO 'BDA4' « BREAK CONTENTS 
|«REG10 INTO DR«i CYL, SUR, SEC BITS 
(RETURN TO THE ERROR MESSAGE 



.SBTTt. CHKDAI CHECK IT RKDA INCREMENirO CORRECTLY 

}tHIS*bOIITINE CHECKS ir RKDA INCREHENTCO CORRECTLY. IF RKDA INCBt 'RENTED 
rCORRECTLY RETURN IS MADE TO SKIP THE ERROR MESSAGE. 

tir RKDA DID NOT IHCBEHENT OORRtCTLlf, THE EXPECTED AND RECIEVED VALUES 
»0r RKDA APE SAVED AND A RETURN IS MADt TO THE ERROR MESSAGE FOLLOWING THE 
J'JSR' CALL. 

}RKDA SHOULD IKCREHENT TO THIS 
(AFTER DATA TRANSPER IS DONE 
;DtD RKDA IHCREHENT CORRECTLY? 
;IP YES, BRANCH 
;IF NOT, REPORT ERROR 
(GET EXPCTD RKDA 

(GO TO 'BDA0' & BREAK CONTENTS OF 
;$REG10 INTO DR i , C YL, SUR, SEC SITS 
(GET ACTUAL RKDA 

(GO TO 'BDA4' t BREAK CONTENTS OF 
((REG10 INTO OR IrCYL.SUR.SEC BITS 
(RETURN TO THE ERROR MESSAGE 



CHRDAt MOV 
INC 

CHKDAI I CMP 
BFO 



HOV 

BRKDA0 



MOV 
BRKDA4 



DRIVAD,R5 

RS,»RKDA 
CRETRN 

R5,8REG10 



•RKOA>tREG10 



RTS 



PC 



.SBTTL CHKHCI CHECK IF HKHC OVERFLOWED 

} CHKWC 

(THIS ROUTINE CHECKS IF RKWC OVERFLOKED TO 0. IF IT DID A RETURN IS MADE 
(TO SKIP THE ERROR MESSAGE. IF NOT, THE CONTENTS OF RKWC AND RKDA ARE SAVED 
(AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLONING THE 'JSR' CALL. 
CHKHCI TST 8BRWC (DID WORD COUNT OVERFLOW TO 07 

BEO CRETRN I IF YES, BRANCH 

(IF NOT, ERROR 

HOV •RK<«C,«REG0 I GET RKHC 

HOV •RKDA.IREGl (GET RKDA 

RTS PC (RETURN TO THE ERROR HESSAQE 

.SRTTL CHKERI CHECK RKCR CONTENTS 

ICHKCR 

ITHIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP 
(THE KRROP MESSAGE. IF ANY BI1 IS SET THE CONTENTS OF RKCS, RKER, RKDS ARE 
(SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. 
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5443 
5444 
5445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
54S6 
9457 
5458 
5459 
5460 
5161 
5463 
516) 
5464 
5465 
5466 
5167 
5468 
5469 
5470 
5471 
5473 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5183 
54fl3 
5484 



021250 
021354 



021256 
021362 



021264 
021270 
021272 
021300 
021306 



021310 
021316 
021320 
021326 
021334 

0213)6 
021342 



005777 160054 
001430 



004737 020710 

000207 



005777 
001 422 
H137)7 
017717 
000707 



022777 
001407 
013737 
017737 
000207 

062716 
000207 



001330 
160024 



000200 160014 



0013)2 
160000 



001163 
001164 



TST 
BEO 



JSR 
RTS 



•RKER 
CRETRN 



PCGTIRG 
PC 



lOID ANY BIT IN RKER SETT 

(NO, BRANCH 

;YES, ERROR 

(GO, GET RKCS, ER, OS 

(RETURN TO THE ERROR MESSAGE 



ICHKECLR 

ITHIS ROUTINE CHECKS THAT RKEP IS CLEAR. IF NOT, THE CONTENTS OF RKER 

(ARE SAVED AMQ A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE *JSP' 

(CALL. IF RKER IS CIEAR THE ERROR MESSAGE IS SKIPPED ON RETURN, 



CHKECLPI TST 
BEO 

001162 MOV 
001164 NOV 
RTS 



•RKER (ANY BIT IN RKER SETT 

CRETRN (NO 

RKER,8REG0 IGET AORES OF RKER 

•RKER,«REG1 IGET CONTENTS OF RKER 

PC I RETURN TO THE ERROR MESSAGE 



5485 










(CALLt 


JSP 


TSTPWS 


5486 
















5487 


031341 


31)777 


001 )S0 


157766 


TSTRWSI 


MOV 


DRIVAD,*RKDA 


5488 


031353 


005037 


001366 






CLH 


TIMER 


5484 


021356 


032777 


000100 


157742 


111 


BIT 


«100,8PKDS 


5490 


021364 


001007 








BNE 


21 


5491 


021366 


005237 


001 ihb 






INC 


TIMER 


5492 


021372 


001 171 








RUE 


It 


519) 


021374 


017717 


1577Jb 


001163 




HOV 


•RKDS. SREG» 


5194 


031402 


000207 








RTS 


PC 


5495 
















5196 


021404 


062716 


0000112 




2tl 


ADD 


•2, CSP) 


S497 
















5 t9fl 


02141' 


3*»«2k'7 








RTS 


p: 



ICHKCCLR 

ITHIS ROUTINE CHECKS THAT RKCS IS CLEAR. IF NOT, THE CONTENTS OF RKCS ARE 

(SAVED AMD A RETURN IS MADE TO THE ERROR MESSAGE. IF RKCS IS CLEAP THE 

(ERROR MESSAGE IS SKIPPED ON RETURN. 

CHKCCLRl CMP •300,8RKCS |1S RKCS CLEABT 

BEO CRETRN (YES 

MOV RKC8,8REC0 ISAVE AORES OF RKCS 

MOV •RKCS,8REG1 (SAVE THE CONTENT OF RKCS 

RTS PC (RETURN TO THE ERROR MESSAGE 

CRBTRNI ADD 12, (SP) (SKIP ERROR MESSAGE ON 

RTS PC (RETURN 

.SBTTL TSTBWSI WAIT FOR R/W/S BOY ROUTINE 

(TSIRHS 

(THIS ROUTINE WAITS FOR R/N/S RDY TO SET, WHEN IT SETS, THE RETURN PC 
(IS INCREMENTED SO THAT ON RETURN (TO THE MAIN PROGRAM) THE ERROR 
(MESSAGE FOLLOWING THE 'JSR' CALL IS SKIPPED. IF R/W/S RDY ODES NOT SET 
(THEN A RETURN IS MADE TO THE ERROR MESSAGE (FOLLOWING THE 'JSR' CALL). 



(ADRES THE DRIVE 

(INITIALIZE COUNT 

(DID R/N/S RDY SETT 

(YES, BRANCH 

(WAIT FOR R/N/S RDY 

(ERROR IF IT'S NOT SET BY NOW 

[GET RKDS 

(EXIT (TO ERROR FOOLOWING 'JSR TSTRWS'I 

(ADJUST PF-Tt)R»I ADRES TP SKIP OVER 
iF,R»nR (FOLLOWING 'JSR TSTt-WS') 
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SEQ 0118 



5499 
SS00 
5501 
SS»2 
5503 
5504 
5505 
5596 
5507 
5500 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
552» 
5521 
SS22 
552J 
SS24 
SS25 



5538 
5539 
5540 
5541 
5S42 
5543 
5544 
5545 
5546 
5547 
5549 
5549 
5551* 
5551 
5552 
5553 
5554 



.SBTTb DRESEtl DRIVE RESET ROUTINE 

JDRE8E? 

JTHIS ROOIIME D0B8 A DRIVE RESET 00 THE DRIVE WHOOSE ADDRESS 18 IN 
IRKDA. MOLIIPM RETURN ADDRESSES rOR THIS ROUTINE ARE PPOVIOED, 
lir THERE IS NO ERROR (R/N/S RDT SiTS MITHIN CERTAIN TIME) . THEN BEFORE 
lEXlTMC FROM THIS ROUTINE THE RETURN ADDRESS IS INCREMENTED BT 7, TO SKIP 
fTHE ERROR MESSAdE ON RETURN. IF THERE IS AN ERROR, THE 3 BECISTEPS (CS,ER,D5) 
lARE STORED AMD THEN A NORMAL EXIT IS MADE FROM THIS ROUTINE TO THE 
lERPOR MESSACe FOLLOWIMO THE CALL FOR THIS ROUTINE, 



021412 
021416 
021424 
021432 



005037 001364 

013777 001350 

012777 000015 
104414 



157714 
157700 



tCALbl JSR 



DRESCTI CIR 
NOV 



NOV 

CNT.ROY 



PCDRESET 



COUNTl 

0RIVADi9RKDA 
•15i0RKCS 



552* 


021434 


032777 


0H0100 


157664 1(1 


BIT 


tl00,»RKDS 


5527 


021442 


001013 






BNE 


21 


5528 


021444 


012746 


177770 




MOV 


••10,-CSP) 


5529 


021450 


005216 






INC 


(SP) 


5530 


021452 


001376 






BNE 


.-2 


5531 


021454 


005726 






TST 


(8P) + 


5532 


021456 


005237 


001364 




INC 


COUNTl 


5533 


021462 


001364 






SHE 


1« 


5534 


021464 


004737 


020702 




JSR 


PC, GT4RG 


5535 


021470 


000402 






BR 


29*i 


55)6 


021472 


062716 


000002 


2tl 


ADD 


I3>*R6 


5537 


021475 


000207 






RT8 


PC 



JIHITIALIZE THE COUNT 
lADRES THE DRIVE 
TDRIVE RESET> GO 
JTHIS IS A CALL FOR 'CN.RDY* 
SROUIIME WHICH WAITS FOR CNT 
jRui TO SET, IF CSTRL RDT DOBS 
;HOT SFT WITHIN 883 MS/ 11-20 
1(176 MS FOR 11 -45 WITH BIPOIiAR) 
;AN ERROR IS REPORTED 

rOID R/H/S RDlf SETf 

SPUSH COUNT ON SP 
ICOUNI IT DOWN 

»POP UP »P 

JIF NOT WAIT 
(WAITED LONG? 



.SMTL T8TSINI CHECK 'SIN' ROUTINE 

ITSTSIN 

;THI8 ROUTINE CHECKS IF 'SIN* IS SET, IF IT IS SET A 

IDRIVE RESET IS DONE TO CLEAR 'SIN' AND INITIftLIZE POSITIONER. 

JCALLI TST, SIN 

jIF ON DOING DRIVE RESET R/W/8 RDY DOES NOT SET A MESSAGE 
1 ERROR PCaXXXXXX IS GIVEN. 

fXXXXXXaPC IN THE MAIN PROGRAM WHERE 'TST.STN' CALL IS LOCATED. 



021500 
021506 
021514 



013777 001350 
032777 001000 
001403 



157632 
157612 



TSTSIN! MOV 

BIT 

HEO 



ORIVAOrtRKDA 

tiB00,«RKDS 

it 



JftORES THE DRIVE 
;IS SIN SET? 
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5555 


021516 


004737 


071412 




JSP 


PCDRESET 


ISO DO DRIVE RESET, SIN SET 


5556 


021522 


000401 






BR 


3$ 


} REPORT ERROR 


5557 


021524 


000002 




ISI 


RTI 






5558 


021526 


032777 


020000 


157404 2tl 


BIT 


i6W13,a3NR 


JINHIBIT TYPEOUT? 


5559 


021534 


001 373 






BNC 


11 


;IF YES, SKIP TYPEOUT 


5560 


021536 


104401 


021544 




TYPE 


,6SS 


mType asciz string 


5561 


021542 


000406 






BR 


644 


(iGEt OVER THE ASCIZ 


5562 








n<Btt 


.ASCII 


/ERROR PC" / 




5563 


021560 






6411 








5564 


021560 


011646 






MOV 


(SP),-CSP) 




5565 


021562 


062716 


177776 




ADD 


♦•2,(SP) 


;GET THE PC WHERE 'TST. SIN' IS 


5566 


021566 


104402 






TYPOC 




!G0 TYPE OUT PC 


5567 


021570 


000755 






BR 


11 




5568 
















5569 
















5570 
















5571 










.SPTTL 


DELAY! TINE 


DELAY ROUTINE 



5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5502 
5583 
5584 
5585 
5586 
5597 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 



021572 
0216(40 



021604 
021610 



017637 
062716 



005337 
001375 



021612 000002 



000000 
000002 



{DELAY 

JTHIS ROUTINE PROVIDES A VARIABLE! TIME DELAY. THE CALL FOR THIS 
JROUTINE IS AN ENCODED 'TRAP' INSTRUCTION. 

ICALLI DELAY ,N N IS ANY OCTAL HO, FROM 1 TO 177777 

STHE DELAY PROVIDED IS 7.5N US (CONVERT N TO DECIMAL) FOR 11/20 
M.5N US FOP 11/45 

J IF THE USFR HANTS TO CHANGE THE DELAY TIME (EXHPI SHORTER DELAY TO 
JGET A TIGHTER SCOPE LOOP) THE VARIABLE 'N' FOLLOWING 'DELAY* SHOULD 
IBE CHANGED TO SUIT THE INDIVIDUAL NEED, 



91366 DELA.YI MOV 
ADD 



DEC 
RNE 



0(SP), TIMER 
«2,(SP} 



TIMER 
II 



.SBTTL WAT.INTI 



!GET 'AMOUNT' (N) FOR WHICH 

fDELAY IS TO BE PROVIDED 

JADJUST STACK POINTER TO SKIP OVER 'N' 

(COUNT DOWN TO 



(RETURN TO VAIN PROGRAM 



WAIT FOR INTERRUPT ROUTINE 



(WAT, INT 

(THIS ROUTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT 
(From RKll CAN OCCUR. THE CALL IS AN ENCODtD 'TRAP* INSTRUCTION. 



(CALL: 



WAT. INT .N 



N IS ANY OCTAL NO. FROM 1 TO 177777 



(WAIT LOOP TIME" APPROX. 7,5N US (CONVERT N TO DECIMAL) FOR 11/20 
(APPROX. 1.5N US FOR 11/45 

(UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT 

;RK11 CAN INTERRUPT. NOTE THAT WHEN RKll INTERRUPTS THIS ROUTINE 

:IS EXITED WITHOUT POPPING THE STAC. THIS POPPING IS DONE AFTER GETTING 

;T0 RKll INTERRUPT HANDLER. 

(IF FOR ANY REASON THF WAIT LOOP TI«E HAS TO BE CHANGED IT CAN BE DONE 
[BY SIMP[,Y CHANGING THE VARIABLE 'N' FOLLOWING THE 'WAT. INT'. 



021614 


017637 


000000 001366 


HITINTt 


MOV 


a(SP)>TIHER 


021632 


063716 


000002 




»DP 


I3> (SP) 


021636 


013746 


001400 




MOV 


RKPRI,-(SP) 


021633 


B17746 


021640 




NOV 


•1(,-(SP) 


031636 


000n03 






PTI 




03164B 


0tt5337 


001366 


ttl 


DFC 


TIMER 


031644 


001 375 






BNE 


It 


031646 


000003 






Htl 










IWATIME 






021650 


005000 




NtTIHei 


CLR 


R0 


021652 


005001 






CLR 


Rl 


031 654 


wo dW 










031656 


001 376 






BNE 


11 


021660 


105201 






INCB 


Rl 


031662 


001374 






BNE 


11 


021664 


000207 






RTS 


PC 










.SBTTL 


CHKCRDYI 
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9611 
5612 
5611 
5614 
5615 
5616 
5617 
5610 
5619 
5620 
5621 
5632 
5633 
9634 
5635 
5636 
9627 
5638 
5639 
5630 
5631 
5633 
5633 
5634 
5635 
5636 
5637 
5630 
5639 
5640 
5641 
5643 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5693 
5654 
5659 
5656 
5657 
5658 
5659 
5660 
5661 
^6t>2 
5663 
5664 
5665 
5666 



16106 PACE 103 

WAIT FOR INTERRUPT ROOIINE 



021666 
021672 
021676 
021700 
021704 
031706 
021712 

021714 
021730 



005037 
105777 
100406 
005237 
001 373 
004737 
000002 

062716 
000002 



001 366 
157434 



JGET 'AMOUNT' (N) TOR WHICH 
^WAITING IS TO BE DONE 

; ADJUST STACK POINTER FOR CORRECT RETURN 
jDROP CPU PRIOPITi SO THAT RKll CAM 
t INTERRUPT 

JWAIT FOR RKll TO INTERRUPT 

J IF INTERRUPT HAS NOT OCCURED BY NOW 

{RETURN AND REPORT ERROR 

lEXIT 



CHKK CONTROL READY 
MCH.CRDY 

;THI8 ROUTINE WAITS FOR THE CONTROL READY TO SET. IF THE CONTROL READY BIT 
tDOCa MOT SET WITHIN A CERTAIN IIME» THEM THE CONTENTS OF RKCSr RKER» RKD8 
rAMD RKDA ARE SAVED AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE 
l'J«R* CALL FOR THIS ROUTING. 

>IF CONTROL READY SETS THEN THE R8TURN ADDRESS IS ADJUSTED TO SKIP THE 
; ERROR MESSAGE ON RETURN. 
ICALLI CHKCROY 

I ERROR IREIURH HERE IF ERROR 

I (RETURN HERE IF NO ERROR 



CR.CRDYI 


CLR TIMER 




111 


TSIB 


ARKCS 


JCHTRL RDY SET? 




BMI 


2* 


»YES 




INC 


TIMER 






BNE 


1( 


>N0> WAIT 




JSR 


PC>GT4RC 


;SAVE RKCSf ER, OS, DA 




RTI 






3tl 


ADO 


•3. (BP) 


; ADJUST RETURN ADDRESS 




RTI 




;SKIP ERROR MESSAGE ON 




.SBTTL 


CON.RESETI 


CONTROL REST ROUTINE 



ICON. RESET 

ITHIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 
ITHE 'CNTRL RDY' FLAG TO SET, WHEN THE FLAG SETS 
|AN EXIT IS MADE OUT OF THE ROUTINE. IF 'CNTRL'RDY' 
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16106 PAGE 104 

CONTROL REST ROUTINE 



5667 
5668 
9669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5b80 
5681 
5682 
561)3 
561)4 
5h85 
5686 
5697 
5608 
S689 
5690 
5691 
5693 
5593 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
57(13 
5704 
5705 
5706 
5707 
9708 
9709 
9710 
97J1 
5713 
5713 
5714 
5715 
5716 
5717 
S7|B 
9719 
9730 
9731 
5732 



021722 
031730 
021736 
02174C 
021744 
021750 
021752 
021756 
021760 
021766 
021770 
021772 
021774 
022000 

022910 
022010 
022012 
022016 

023030 
023034 

033036 
033036 
032042 



012777 
012737 
000403 
005037 
105777 
100435 
005237 
001373 
033777 
001036 
104401 
001245 
104401 
000403 



01t«46 
162716 
104402 

104401 
000404 



017746 
104402 



022044 0tin002 



000001 
177500 



001 170 
157362 



001170 
020000 



000002 
B22026 

157270 



157402 
001170 



IDOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 
J CNT RDY DIDN'T SET 

I PCaXXXXXX HKCS>YVK¥YY 

lis OIVE0, NOTE THAT XXXXXX IS THE PC WHERE 'CMT, RESET' 
lis CALLED. 

iCALLi CNT. RESET 



OR 'CHT.RDY' 



.SBTTL CNT.ROYI 



WAIT FOR CONTROL READY ROUTINE 



fCN.RDY 

IIH13 ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 

18ETS EXITS OUT. IF WITHIN A CERTAIN TIME CNTRL ROY DOES 

(NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20 

1175 MS FOR 11/49 WITH BIPOLAR MEMORY. 

iCALLI CNT. RDY 



CN.RDYI 
111 



157152 311 



116511 
6411 



116711 
6611 



MOV 


ll,aRKCS 


1 ISSUE A CONTROL RESET 


MOV 


(•300>IREG3 


ISET UP COUNT 


BR 


CN.RDY*4 


ISKIP OVER CN.I 


CLP 


IREG3 




TSTB 


IRKCS 


>OID CNTRL-RDY SETT 


BMI 


31 


lYES, EXIT 


INC 


• REG3 


(WAITED LONG? 


BNE 


It 


tIF NOT, GO BAK & WAIT 


BIT 


ISW13,fSWR 


lINHIAIT TYPEOUI? 


BNE 


3t 


IIF YES, SKIP TYPEOUT 


TYPE 






M8G3 






TYPE 


f65t 


IITYPE ASCIZ STRING 


BR 


641 


MGET OVER THE ASCIZ 


.kSCIZ 


<15><12>/PC»/ 




MOV 


(SP)»-(SP) 




SUB 


•2. (SP) 




TYPOC 




lOO TYPE PC IN THE MAII 






1 WHERE ERROR OCCURRED 


TYPE 


»67t 


llTYPE ASCIZ STRING 


BR 


66t 


SiGET OVER THE ABCIZ 


.kSCIt 


/ RKCS'/ 




MOV 


•RKC6»>(SP) 


>GET RKCS 


TYPOC 




JGO TYPE IT 



(RETURN FROM THIS 
JROUTIHE TO THE MAIN 
iPROGRAM 



(THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
(FROM THE SY8MAC.SML PACK«GE 

; 



.JHTTL SCOPE HANDLER ROUTINE 
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SEQ fll22 



5723 










5724 










5725 










5726 










5727 










5728 










5729 










5733 










5731 










5732 










5733 










5734 










5735 










5736 


022^46 








5737 


022046 


104407 






5738 


022050 


032777 


040000 


1 57062 


5739 


022056 


001 111 






574B 










5741 


022060 


0004 1 6 






5742 










5743 


022062 


0137 46 


000004 




5744 


022066 


012737 


022106 


000004 


5745 


022074 


005737 


1 77060 




5746 


022100 


012637 


000004 




5747 


022104 


000463 






5748 


022106 


022626 






5749 


0221 10 


012637 


000004 




5750 


0221 1 4 


000423 






5751 


0221 16 








5752 


0221 16 


032777 


000400 


157014 


5753 


022124 


00 1 404 






5754 


022126 


127737 


157006 


001 102 


5755 


0221 34 


001 462 






5 756 


0221 36 


10S737 


001 103 




5757 


022142 


001 421 






5758 


0221 44 




001 1 15 


001 103 


5759 


022152 








5760 


027154 


032777 


001CP0 


156756 












5762 


J, 






ami af. 


576 3 


0221 72 


000443 












001 103 




5765 


022200 


005037 


00 1 206 




5766 




ana A 4 K 












atnAotcuA 
W^Wv 


156724 


5769 


02221 4 


00101 1 










005 737 


001 100 




5773 


022222 


001 406 






5771 


022224 


005237 


001104 




5772 


022230 


023737 


001206 


001104 


5773 


022236 


002^21 






5774 


022240 


012737 


000001 


001104 


5775 


022246 


01 3737 


022316 


001206 


5776 


022254 


105237 


001 102 




5777 


022260 


011637 


001106 




5778 


022264 


01 1637 


001110 





n •••»»»•♦•♦••••••♦»•••»••♦»••»•»•»»♦*•••»•••••••*••••*•••*•****• 

I«THIS ROUTINE CONTROLS THE LOOPING OF SUfllESIS. IT HILL INCREMENT 
»»*ND LOAD THE TEST MUMBERtlTSTHM) INTO THE DISPLftlf REG. COISPLAy<7j0>3 
I«ANO LOAD THE ERROR FLAG (SERFLG) INTO DI8PLAt<15J08> 
t«THE SNITCH OPTIONS PROVIOCD BY THIS ROUTINE AREI 



;*SHt4sl 

j«8Hll*l 
t*SH09al 
;«8H0est 
>»CALL 

ISCOPEI 



LOOP ON TEST 
INHIBIT ITERATIONS 
LOOP OH ERROR 
LOOP ON TEST IN 5WR<7:0> 



SCOPE 


JJSCOPE-IOT 


CKSWR 




mtest for change in SOFT-SWR 


BIT 


IBIT14r t>SwR 


WLOOP ON PRESENT TEST? 


BNE 


tOVER 


i>YES IF SH14*t 


ART OF 


CODE FOR THE XOR 


TESTERtllf ' 


BP 


6( 


;;IF PUNNING ON THE "XOR" TESTER CHANGE 


JJTHIS INSTRUCTION TO A "NOP" (NOP»240) 


MOV 


9VCRRVECr*(SP) 


MSAVE THE CONTENTS OF THE ERROR VECTOR 


MOV 


tStr9<ERRVEC 


S»SET FOR TIMEOUT 


TST 


(il177060 


J » TIME OUT ON XOR? 




CSP) + #^fE:RHyEC 


W RESTORE THE ERROR VECTOR 


BR 


tSVLAO 


nSO TO THE NEXT TEST 


CMP 


(SP)^f C3P) + 


MCLEAR THE STACF AFTER A TIME OUT 


MOV 


(SP)'»« A*ERRVEC 


!>RESTORE THE ERROR VECTOR 


BR 


7t 


MLOOP ON THE PRESENT TEST 


ICND OF 


CODE FOR THE XOR 


TESTERDtit* 


BIT 


IBIT0B(»SWR 


ntOOP ON SPEC. TEST? 


BEQ 


2S 


;|BR IF HO 


CMPB 


•SWRfSTSTNM 


r»ON THE RIGHT TEST? 5WR<7|0> 


BEO 


• OVER 


;iBR IF YES 


TSTB 


SERFLG 


;>HAS AN ERROR OCCURRED? 


BEO 


3t 


JIBR IF NO 


CHPB 


SF.RHAXf SERFLG 


SIMAX. ERRORS FOR THIS TEST OCCURRED? 


BHI 


3t 


riBR IF NO 


BIT 


f aiT09>9SWR 


;>LOOP ON ERROR? 


BEO 


4( 


nSR IF NO 


MOV 


tLPERRiSLPADR 


mSET loop ADDRESS TO LAST SCOPE 


BR 


(OVER 




CLRB 


tERFLG 


>>EERO THE ERROR FLAG 


CLR 


ITIMES 


MCLEAR THE NUMBER OF ITERATIONS TO MAKE 


BR 


It 


MESCAPE TO THE NEXT TEST 


BIT 


• BITU.ftSHR 


MINHIBIT ITERATIONS? 


BNE 


11 


MBR IF YCS 


TST 


(PASS 


MIF FIRST PASS OF PROGRAM 


SCO 


1« 


it INHIBIT ITERATIONS 


INC 


IICNT 


MINCREMENT ITERATION COUNT 


CMP 


ITIMES, 5ICNT 


;>CHECK THE NUMBER OF ITERATIONS HADE 


BGC 


tOVER 


f}BR IF MORE ITERATION REQUIRED 


MOV 


•liSICNT 


; IREINITIALIZE THE ITERATION COUNTER 


HOV 


IMXCHT,»TIHE8 


MSET NUMBER OP ITERATIONS TO DO 


INCB 


iTSTNM 


M COUNT TEST NUMBERS 


MOV 


(SP),ILPADR 


MSAVE SCOPE LOOP ADDRESS 


MOV 


CSP}>tLPERR 


llSAVE ITRRQR LOOP ADDRESS 
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5779 
5730 
5781 
5732 
5783 
57ft4 
5795 
5786 
57B7 
5788 
57B9 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 
5R03 
5804 
5805 
5806 
5807 
5808 
5B09 
5810 
5811 
5«12 
5813 
5814 
5Sl5 
5816 
5917 
5818 
S819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5*31 
5832 
5833 
5834 



022270 
022274 
022302 
022310 
022314 
022316 



005037 
11?737 
013777 
01 3716 
000002 

000050 



001210 
000001 
001102 
001106 



00111B 
156632 



CLR 
MOVB 

lOVERI MOV 
MOV 
RTI 

tHXCNTi 50 



lESCAPE 
•IrtERMAX 
iTSTNM. aoiSPLAY 
tLPADR. (SP) 



MCLEAR THE ESCAPE FROM ERROR ADDRESS 
MONLY ALLOM ONECn ERROR ON NEXT TEST 
MDISPLAY TFST NUMBER 
7»rUD0C RETURN ADDRESS 
MflXES PS 

MMAX. number of ITERATIONS 



I ) ••*••»••••«•««••»•*»••»••••••»*•**•••*«•««•**••••»«••>«•»«•••*•••*••••• 

.SBTTL ERROR HANDLER ROUTINE 



;»SW15a| 
;»SH13«1 
;*SW10>1 
;«SW09sl 
;«SW12»1 
;«SW06al 



>»G0 TO tERRTYP ON ERROR 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
TESTING ON SIMULATOR 
LOOP ON ERROR 

CYCLE ON FRROR TO PREVIOUS 'SCOPE' 

DROP DRIVE AFTER MAXIMUM (ALLOHABLB) ERRORS ON THE DRIVE 



02232>) 


104407 






(ERROR! 


CKSWR 




ICHECK FOR SOFTWARE SWITCH REGISTER REQUEST 


022322 


105237 


001103 




7|J 


iNce 


(ERFLG 


ISET THE ERROR FLAG 


022326 


301 775 








BEQ 


71 


1 DON'T LET THE FLAG GO TO ZERO 


02233ifl 


013777 


001 102 


156604 




HOV 


(TSTNMfUDISPLAY 


; DISPLAY TEST NUMBER AND ERROR FLAG 


02233b 


005737 


001112 




ISI 


INC 


(ERTTL 


JCOUNT THE NUMBER OF ERRORS 


022342 


032777 


0M0100 


1S6S70 




BIT 


(BIT6,aSWR 


ineSELECT DRIVE SH SET? 


022350 


001 404 








BEQ 


6( 


»N0 


022352 


073727 


001112 


000005 




CMP 


IERTTL,I5 


IMORE THAN 5 ERRORS ON THIS DRIVE? 


022360 


101M47 








BHI 


8( 


(YFS, DESELCT THE DRIVE 


022362 


01 1637 


001 116 




btl 


MOV 


(SP)»IERRPC 


ir;ET ADDRESS OF ERROR INSTRUCTION 


022366 


162737 


000003 


001 1 16 




SUB 


t2>(ERRPC 




022374 


117737 


156516 


001 114 




hOVB 


• lERRPCrdTEMB 


» STRIP AND SAft THE ERROR ITEM CODE 


022402 


032777 


020000 


156530 




BIT 


(SWtS.RSMR 


TSKIP TYPEOUT IF SET 


022410 


001^04 








BNE 


21 


ISKIP TYPEOUTS 


022412 


004737 


022632 






JSR 


PC.RISERRTYP 


(GO TO USER ERROR ROUTINE 


022416 


104401 


001213 






TYPE 


.(CRLF 




027422 


005777 


156512 




211 


TST 


• SMR 


IHALT ON ERROR 


022476 


1 mm7 








BPL 


3« 


(SHIP IF CONTINUE 


022430 


000000 








HALT 




IHALT ON ERROR I 


022432 


104407 








CKSWR 




(CHECK FOR SOFTWARE SWITCH REGIATER REQUEST 


022434 


037777 


010000 


156476 


3(S 


BIT 


«SN12,»SWR 


>SW 12 SFT7 


022442 


001402 








BEQ 


.*6 


(NO. BRANCH 


022444 


013716 


001 106 






HOV 


(LPAOR. (SP) 


(ADJUST RETURN ADRES FOR SI 12 


•32450 


032777 


001000 


156462 




BIT 


(SH09,«SNP 


(LOOP ON ERROR SWITCH SETT 


022456 


001402 








BEO 


4« 


(BR IF NO 


032460 


013716 


001110 






HOV 


(LPERR, (SP) 


(FUDGE RETURN FOR LOOPING 


022464 


005737 


001210 




4(1 


TST 


(ESCAPE 


ICHECK FOR AN ESCAPE ADDRESS 


032470 


001402 








BEO 


5( 


(BR IF NONE 


022472 


013716 


001210 






MOV 


(ESCAPE. (SP) 


(FUDGE RETURN ADDRESS FOR ESCAPE 


022476 


300002 






5s: 


BTI 




(RETURN 


022500 


00^737 


001434 






TST 


T56rt r. 


IIF EROR WAS IN LAST TEST (POLL) 
















(DROP ALL THE DRIVES 


022504 


(<01407 








("FtJ 


10( 
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SEQ •»»« 



58lS 


032506 


lf*4401 


001303 


5836 


032512 


005037 


001412 


S8]7 


022516 


022626 




5838 


023520 


0001 37 


020560 


5839 


022534 


013746 


001354 


5840 


0325)0 


162716 


000002 


5841 


032534 


013746 


001350 


5843 


033540 


004737 


021106 


584) 


033544 


042716 


000001 


5844 


022550 


062716 


001414 


5845 


022554 


042776 


100000 


5846 


022562 


062716 


000002 


5847 


022566 


042736 


100000 


5848 


022572 


012736 


010000 


5849 


022576 


104401 


001272 


5850 


023602 


013746 


001350 


5851 


022606 


004737 


021106 


5853 


022612 


104402 




585} 


023614 


104401 


001315 


5854 


023620 


005337 


001412 


5855 


022624 


022626 




5856 


023626 


000137 


0177)4 


5857 








5858 








5859 








5860 








5861 








5862 








5861 








5864 








5865 








5866 


0236)2 






5867 


022632 


104401 


00121) 


5868 


022636 


010046 




5869 


022640 


005000 




5870 


022642 


153700 


001114 


5871 


022646 


001004 




5872 








5873 


022650 


01)746 


001 116 


5874 








5975 


022654 


104403 




5876 


f<22656 


000126 




5877 


023660 


005 J00 




5878 


022662 


006 300 




5979 


022664 


006100 




5880 


022666 


006300 




5881 


022670 


062700 


001442 


5B83 


022674 


012037 


0227P14 


58R3 


022700 


001404 




5884 


822702 


104401 




5985 


032704 


(t«iei000 




5886 


022706 


104401 


001213 


5887 


022712 


012037 


PI22772 


5888 


022716 


001404 




5999 


022720 


104401 




5890 


022722 


000000 





TtPE 


.MSG5 


CLR 


DRIVS 


CMP 


(SP)*>(SP}t 


JMP 


tCOP 


HOV 


DRVPTR>-(8P} 


BUB 


13. (SP) 


NOV 


ORIV»D.-(SP} 


JSR 


PCfSHETRT 


BIC 


11, (R6) 


ADO 


tDRIV0.(BP} 


BIC 


IBIT1S,B(R6} 


kDD 


l3i<R6) 


BIC 


IBIT15,|l(SP)t 


NOV 


IBIT12>»(SP)« 


TYPE 


«HBG4 


HOV 


0RIVA0r'(R6) 


JSR 


PCfSHFTRT 


TYPOC 




irPB 


,MSG6 


DEC 


DRIVS 


CMP 


(SP)+. tSP)+ 


JNP 


BTEOP 



(DROP THE DRIVE rRON THE 
I SELECTION LIST 
(ORtVE kDDR TO STACK 
t RIGHT JUBTIEY 
}HftKE EVEN 

IPOIHTS TO TABLE FOR EVEN DRIVE 
(TEST REHAININO DRIVE AS RK09E 
(POINT TO 000 
(TEST AS RK-09E 
I INDICATE THIS DRIVE DROPPED 

IPUSH DRIVE I ON STACK 
I SHIFT IT BEFORE TYPING 
ITYPE OUT DRIVE I 

IDCCREMENT « OF DRIVES PRESNT 
I RESTORE STACK 

ISO BACK TO THE END OF PROCRM 
ILINKAOE. 

.SBTTL ERROR HESSAGE lYPEOUT ROUTINE 

II ****** 

|»THTS ROUTINE USES THE "ITEM CONTROL BYTE" (IITCHB) TO DETERMINE WHICH 
|»ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" (lERRTB), 
|«AND REPORTS THE APPROPRIATE INFORMATION CONCCRNINS THE ERROR, 

•ERRTIPI 



211 
3tl 



TYPE 


,»CRIF 


M "CARRIAGE RETURN" ( "LINE FEED" 


MOV 


R«,-(SP) 


II SAVE R0 


CLR 


R* 


II PICKUP THE ITEM INDEX 


PISB 


•«IITEMB,R0 




BNE 


U 


II IF ITEM NUMBER IS EERO, JUST 






II TYPE THE PC OF THE ERROR 


MOV 


• BRRPC-CSP) 


It SAVE lERRRC FOR TYPEOUT 






II ERROR ADDRESS 


TIPOC 




llGO TYPE— OCTAL ASCIICALL DIBITS) 


RR 


(• 


II GET OUT 


DEC 


110 


:i ADJUST THE INDEX SO THAT IT HILL 


ASL 


RB 


II HORK FOR THE ERROR TABLE 


ASL 


R0 




ASL 


R0 




ADD 


l(ERRIB,R0 


lirORH TABLE POINTER 


MOV 


(R0)4,2( 


IIPICKUP "tRROR MESSAGE" POINTER 


neo 


}| 


IISKIP lYMbUT IF NO POINTER 


TYPE 




It TYPE THE "ERROR MESSAGE" 


.WORD 





II 'ERROR MESSAOC" POINTER GOES HERE 


TYPE 


,«CRLF 


It 'CARRIAGE RETURN" ( "LINK PEED' 


HOV 


(R01t,4l 


IIPICKUP 'DATA HEADER' POINTER 


BEQ 


5« 


11 SKIP TIPBOUT IF 


TYPE 




II TYPE THE "DATA HEADER" 


.MORD 





It "DATA HEADER" POINTER GOES HERE 
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5841 


922724 


104401 


001213 




TYPE 


ilCRLF 


II"CARPIAGE RETURN" (, "LINE FEED" 


5892 


0227)0 


011000 




511 


MOV 


(R0},R0 


IIPICKUP 'DATA TABLE" POINTER 


5893 


022732 


001004 






BNE 


7i 


It CO TYPE THE DATA 


5894 


«22734 


012600 




641 


HOV 


(SP)t,R0 


It RESTORE R« 


5895 


022716 


104401 


001213 




TYPE 


.iCRLF 


II "CARRIAGE RETURN" 6 "LINE FEED" 


5896 


032743 


000307 






RT8 


PC 


1 IRETURN 


5897 


022744 






7(1 








5898 


022744 


01 3046 






HOV 


»(R0)f ,>(SP) 


llSAVE 8(H0)+ FOR ItPtOUT 


5899 


022746 


104402 






TYPOC 




IIGO TYPE— OCTAL ASCIICALL DIGITS) 


5900 


022750 


005710 






TST 


(R0) 


Ills THERE ANOTHER HUMBERT 


5901 


B22752 


001770 






BED 


6( 


IIBR IF NO 


5902 


023754 


104401 


022762 




TYPE 


,8* 


IITYPC TH0C3) SPACES 


5903 


022760 


000771 






BR 


7( 


; 1 LOOP 


5901 


022762 


020040 


O0(» 


811 


.ASCIZ 


/ / 


!ITW0(2) SPACES 


5905 




0J2766 






.EVEN 







5906 
59H7 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 
591 7 
5918 
5919 
5930 
5921 
5922 
5923 
5924 
5925 
5926 
5937 
5939 
5929 
5930 
59)1 
5932 
59)3 
5914 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5941 
5945 
5946 



.SBTTL TYPE ROUTINF 



; •ROUTINE TO TYPE ASCIE HESSAGE. MESSAGE MUST TERMINATE WITH 
l«THE ROUTINE NILL INSERT A NUMBER OF NULL CHARACTERS AFTER A 



t»NOTEl I 
l»N0TE2l 
t«M0TE3l 
>• 

t'CALLt 
1*1) USING A 
I* TYPE 
I •OB 

t» TYPE 
l« MESADB 
I* 



BYTE. 
LINE FEED. 



tNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
iriLLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
IFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
.MESAOR 



IIMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



022766 


105737 


001157 


(TYPEI 


TSTB 


(TPFLO 


tllS THERE A TERMINAL? 


022772 


100002 






BPL 


U 


II BP IF YES 


B23774 


000000 






HALT 




llHALT HERE IF NO TERHINAL 


033776 


000407 






RR 


)$ 


ttlFAVE 


03)000 


010046 




111 


HOV 


R0,-(SP) 


IISAVE RB 


033002 


017600 


000002 




MOV 


•2(SP)f R0 


tiGET ADDRESS OF ASCIZ STRING 


023006 


117046 




2«i 


MOVP 


(R0)+,-(8P) 


IlPUSH CHARACTER TO BE TYPED ONTO STACK 


023310 


001005 






BNE 


4« 


IIBR IF IT ISN'T THE TERMINATOR 


02)012 


005736 






TST 


(SP)* 


11 IF TERMINATOR POP IT OFF THE STACK 


033014 


012600 




6011 


HOV 


(SP)>f R0 


IIPESTORE R0 


023016 


062716 


000002 


)ll 


ADD 


•3.(8P) 


It ADJUST RETURN PC 


023022 


000002 






PTI 




1 iRETURN 


023024 


122716 


000011 


4tl 


CMPB 


iHT, (SP) 


IIBRANCH IF <HT> 


023010 


001430 






BFO 


88 




02)033 


122716 


0002 0H 




CMPB 


•CRLF, (SP) 


IIPPBHCH IF NOT <CRLr> 


0230)6 


001 (*06 






BNE 


5* 




03)040 


01^5726 






TST 


(SP) + 


1 iPnp <CR><LF> EOUIV 


033043 


104401 






TYPF 




; ITYPF A CR AND LP 


023044 


00121 ) 






ICPbF 






023046 


105037 


02)202 




Cl-R« 


ICHftOCNT 


:|CI;EAP CHARACTER COUNT 


023^52 


000755 






BR 




; IGFT f.EXT CHARACTER 


»23()54 


0*4737 


B2313& 


511 


JSR 


PC.srypEC 


•.ino TYPE THIS CHARACTFR 


023i<60 


12)726 


001 156 


6*1 


r<«PR 


«rtLLC. tsp J* 


!IIS IT TIME FOR FULKP CHAPS. 7 
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3« 

tNULtit-CSP) 



S947 


033064 


001350 






S94B 


023066 


013746 


001 154 




5949 










S950 


023072 


10S366 


000001 




S9S1 


033076 


002770 






S9S3 


023100 


004737 


023136 




59S3 


033104 


105337 


023202 




S9S4 


023110 


000770 






5955 










5956 










595T 










5959 


033112 


112716 


000040 




5959 


033116 


0047)7 


023136 




5960 


023133 


132737 


000007 


023203 


5961 


023130 


001372 






5963 


023132 


005726 






5963 


023134 


000724 






5964 


023136 


105777 


156006 




5965 


023142 


100375 






5966 


023144 


1 16677 


000002 


156000 


5967 


023152 


122766 


000015 


000003 


5969 


023160 


001003 






5969 


023162 


105037 


023202 




5970 


023166 


000406 






5971 


023170 


122766 


000012 


000003 


5972 


023176 


001402 






5973 


023200 


105227 






5974 


023202 


000000 






5975 


023204 


000207 






5976 










5977 










5978 










5979 










5990 










5981 










5982 










5983 










5984 










5985 










5986 










5987 










5988 










5989 










5990 


023206 








5991 


023206 


0t0i)46 






5992 


023210 


010146 






5993 


023212 


010246 






5994 


023214 


010346 






5995 


023216 


010346 






5996 


023220 


012746 


02020'J 




5997 


023224 


01660S 


000020 




5998 


023230 


100^04 






5999 


023232 


005405 








023234 


112766 


000055 


000001 


6001 


023242 


005000 






6a»2 


023244 


012703 


023422 





BNE 
NOV 

OECB 
BLT 
JSR 
DECS 



ICSP) 
6t 

PC.iTTPEC 
(CHARCNT 

7$ 



nir NO GO GET NEXT CHAR. 

MGET I OF FIUER CHARS. HEEDED 

HAND THE NULL CHAR. 

MOOES A HULL NEED TO BE tXPEO? 

IIBR ir HO--CO POP THE HULL OFF OF STACK 

nCO TYPE A HULL 

tlDO HOT COUNT AS A COUNT 

I i LOOP 



I HORIZONTAL TAB PROCESSOR 



e«i 


HOVB 


!• »(SP) 


MREPLACE TAB WITH SPACE 


9*1 


JSR 


PCftTYPEC 


mtype a space 




BITB 


t7,tCHARCNT 


>| BRANCH IF NOT AT 




BNE 


91 


nTAB STOP 




TST 


(SP) + 


nPOP SPACE OFF STACK 




BR 


2t 


»|CET HEXT CHARACTER 


ITYPECt 


TSTB 


OtTPS 


JjHAIT UNTIL PRINTER IS READY 




BPL 


STYPEC 


MLOAD CHAR TO BE TYPED INTO DATA REG 




HOVB 


2(SP)>MTPB 




CNPB 


ICR(2(SP) 


Ills CHARACTER A CARRIAGE RBtURHT 




BNE 


1« 


} {BRANCH IF NO 




CLRB 


tCHARCNT 


UYES--CLEAR CHARACTER COUKT 




BR 


STYPEX 


MEXIT 


111 


CHPB 


»LF,2(8P) 


Mis CHARACTER A LINE PEEDt 




BEQ 


»TYPEX 


MBRANCH IF YES 




INCB 


tPC) + 


MCOUNT the CHARACTER 


ICHARCNTt ,NOPD 





M CHARACTER COUNT STORAGE 


•TTPEX: 


RT8 


PC 




.SBTTL 


CONVERT 


BINAKY TO DECIMAL AND TYPE ROUTINE 



M ••*•••«••••••♦♦»»•«•»•*•*•••♦••♦♦•••»•••••••♦•••**•••••••*•••*♦ 

j»THI8 ROUTINE 18 USED TO CHANGE A 16-BlT BINARY NUMBER TO A S-DIGIT 
{•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
{•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN HILL BE TYPED 
(•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS HILL ALWAYS BE 
{•REPLACED WITH SPACES. 
{•CALLt 

»• MOV HUH,-(SP) {(PUT THE BINARY NUMBER OH THE STACK 

TYPOS ((GO TO THE ROUTINE 



♦TYPDSI 



MOV R0.-tSP) ((PUSH R0 ON STACK 

MOV Rlr-(SP) ((PUSH Rl OH STACK 

MOV R2><(SP1 ((PUSH R2 ON STACK 

MOV R3i>(SP) ((PUSH R3 ON STACK 

«0V R5,-(8P) ((PUSH R5 ON STACK 

MOV *20200f(SP] ((SET BLANK SWITCH AND SIGN 

MOV 20(SP),R5 ((GET THE INPUT NUMBER 

BPL 1$ ((BR IF INPUT IS POS. 

NEC R5 ((MAKE THE BINARY NUMBER POS. 

M0V8 »'-.U8P) ((HAKE THE ASCII HUMBEP NEC. 

CLR R0 ({ZERO THE CONSTANTS INDEX 

MOV »»0BLK,R3 ({SETUP THE OUTPUT POINTER 
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6003 


023250 


112723 


6004 


023254 


005002 


6005 


021256 


016001 


6006 


023262 


160105 


6007 


023264 


002402 


603>; 


02326b 


005202 


6009 


023270 


000774 


601)' 


023272 


060105 


601 1 


023274 


005702 


6012 


023276 


001002 


6013 


023300 


105716 


6014 


023302 


100407 


6015 


023304 


106916 


6016 


021306 


101003 


6017 


021310 


116663 


6«9lS 


023316 


052702 


6019 


023322 


052702 


6020 


023326 


1 10223 


6021 


023330 


005720 


6022 


023333 


020027 


6023 


023316 


002746 


6024 


023340 


003002 


5025 


023343 


010502 


6026 


023344 


000764 


6027 


023346 


105726 


6028 


023350 


100003 


6029 


023352 


116663 


6010 


023360 


10501) 


6031 


023362 


012605 


6032 


023364 


012603 


6033 


023366 


012603 


6034 


023370 


012601 


6015 


023172 


012600 


6036 


023374 


104401 


6017 


023400 


016666 


6018 


023406 


012616 


6019 


021410 


000002 


6040 


023412 


02)420 


6041 


023414 


001750 


6042 


023416 


000144 


6043 


023420 


000012 


6044 


023423 


000004 


6045 






6046 






6047 






6048 






6049 






6050 






6051 






6052 






6053 






6054 






6055 






6056 






6057 






6058 







000001 177777 

00006^ 

000040 



177777 17T776 



023422 
000002 





MOVB 


»' ,(R3)+ 


{(SET THE FIRST CHARACTER TO A BLANK 


3(( 


CLR 


R2 


((CLEAR THE BCD NUMBER 




MOV 


IDTBL(R0)>R1 


! (GET THE CONSTANT 


3lt 


SUB 


P1,R5 


((FORM THIS BCD DIGIT 




BLT 


4* 


{(BR IF DONE 




IHC 


R2 


{(INCREASE THE BCD DIGIT BY 1 




BR 


31 




4(( 


ADO 


R1>R5 


{(ADD BACK THE CONSTANT 




TST 


R2 


( (CHECK IF BCD D1GIT«0 




BNE 


S( 


((FALL THROUGH IF 




TSTB 


(SP) 


((STILL DOING LEADING 0'ST 




BMI 


7» 


((BR IF YF.S 


561 


ASLB 


(SP) 


( IHSDT 




BCC 


6» 


( (BR IF NO 




MOVB 


1(SP),-1(R3) 


{ (YES— SET THE SIGN 


6I( 


BIS 


«'0.R2 


MMAKE THE BCD DIGIT ASCII 


711 


BIS 


»' ,R3 


((MAKE IT A SPACE IF NOT ALREADY A DIGIT 




MOVB 


R2,(P3)+ 


((PUT THIS CHARACTER IN THE OUTPUT BUFFER 




TST 


(R0) + 


{(JUST IMCREMENTIMG 




CMP 


R0««10 


((CHECK THE TABLE INDEX 




BLT 


2* 


! (GO DO THE NEXT DIGIT 




BGT 


81 


{(GO TO EXIT 




MOV 


R5.R2 


{{GET THE LSD 




BR 


68 


((GO CHANGE TO ASCII 


8I( 


TSTB 


tSP) + 


((WAS THE LSD THE FIRST H0N-EER07 




BPL 


9« 


((BR IF HO 




HOVB 


•1(8P)>«2(R3) 


myes»set the sign for TYPIHG 


9(t 


CLRB 


(R3) 


((SET THE TERMINATOR 




MOV 


(SP)+,RS 


mPop Stack into rs 




MOV 


(SP}+,R3 


((POP STACK into R3 




HOY 


(SP)+,R2 


((POP STACK INTO R2 




MOV 


(SP)f ,R1 


((POP STACK INTO Rl 




MOV 


(SP)t,R0 


((POP STACK INTO RB 




TYPE 


f tOBLK 


({NOW TYPE THE NUMBER 




MOV 


3(SP],4(8P} 


((ADJUST THE STACK 




MOV 


(SP)'f, (SP) 






RTI 




({RETURN TO USER 


IDTBLI 


10000. 








1000. 








100. 








10. 






tDBLKl 


.BIKH 


4 




.SBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 



{ I •••••••••••••••••»•••••*••«•••••»•••••••••«•«•••«««•••••«»••••• 

;»THtS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-niGIT 
(♦OCTAL (ASCII) NUMBER AND TYPE IT. 

{•ITYPOS— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
{•CALLl 

"OV NUH,-(5P) {(NUMBER TO BE TYPED 

{• TYPOS ((CALL FOR TYPEOUT 

{• .BYTE N {(Nel TO 6 FOR NUMBER OF DIGITS TO TYPE 

(♦ .BYTE M {|M«1 OR 

!• (Il=iyPE LEADING ZEROS 

!• I (0«SIIPPPES5 LEADING ZEROS 
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aEQ 0t38 



6089 
606a 
6061 
6063 
6063 
6064 

•««« 

60«T 

60«a 

6069 
6070 
6071 
6072 
6073 
6074 
6073 
6076 
6077 
6078 
6079 
60S0 
60*1 
6083 
6083 
6084 
6085 
6086 
6087 
6086 
6089 
6090 
6091 
6093 
6093 
6094 
6099 
6096 
6097 
6098 
6099 
6100 
6101 
6103 
6103 
6104 
6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 



|#»TYPO(I— -EHIER HERE TO TYPE OUT MTH THE S»HE P»R««ETER8 «S THE LAST 
»»6TYP0S OR IIYPOC 

|»CAI,l.l H0M,-(8P1 nNHMBER TO BE TYPED 

TYPOH MCALt FOR TYPEOUI 



•33433 

023436 
•33444 

•33450 
•33454 
033456 
033464 
023473 
033500 
033503 
033504 
033506 
033513 
033514 
033530 
033534 
033530 
033534 
033536 
033540 
023543 
033544 
033546 
023550 
023552 
023554 
•23560 
023562 
023566 
•23570 
023573 
023574 
023576 
023603 
023606 
023612 
023616 
•23632 
023624 
033626 
033630 
023632 
•23634 
023616 



•17646 
116617 
113637 
062716 
000406 
112737 
112737 
113737 
010346 
010446 
010946 
113704 
009404 
063704 
110437 
113704 
016609 
005003 
006109 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
04370} 
001002 
009704 
001403 
0053()4 
052703 
053703 
110137 
104401 
105137 
003347 
003402 
O092«>4 
000744 
013605 
012604 
012603 



000000 

000001 0236S5 

023617 

000002 

000001 023655 
000006 0336S7 
000005 023654 



033657 

•00006 
033656 
033655 
000013 



023696 
177770 



000060 
000040 
033692 
023652 
023654 



|#«TYPOC— EHTtP HERE FOR TYPEOUT OF A 16 BIT HOHBER 
I0CALLI 



HOV 


HUH,-(SP) 


;|NUHBER TO BE TYPED 


TYPOC 




nCALL POR TYPEOUT 


HOV 


•(8P),-(SP) 


n PICKUP THE NODE 


NOVB 


l(SP),«0riLL 


tiLOAD ZERO FILL SWITCH 


HOVB 


(SP)+«tOHOOE+l 


;tNUHBER OF DIGITS TO TYPE 


ADD 


12. (SP) 


;t ADJUST RETURN ADDRESS 


BR 


•TTPOM 


llSET THE ZERO PILL SWITCH 


MOVB 


ll,IOriLL 


HOVB 


l6r«0H00Etl 


MSET FOR Sixes} DIGITS 


HOVB 


IS.tOCNT 


MSET the iteration COUNT 


NOV 


R».-(SP) 


MSAVE R3 


HOV 


R4>-(3P} 


nskvE R4 


HOV 


RScCSP) 


MSAVE R5 


HOVB 


•0M0DEtl.R4 


llQET THE NUMBER OP DIGITS TO TYPE 


■EC 


R4 




ADD 


16, R4 


MSUBTRACT IT FOR HAX. ALLONED 


HOVB 


R4,(0H0DC 


nSAVE IT FOR USE 


HOVB 


S0FILL«R4 


;f6ET THE ZERO FILL SHITCH 


HOV 


12(8P)>R9 


; (PICKUP THE INPUT NUMBER 


CLR 


Rl 


II CLEAR THE OUTPUT WORD 


ROL 


RS 


MROTATE H8i INTO "C" 


BR 


31 


II GO DO HSB 


ROL 


P5 


iiFORM This digit 


ROt 


R9 




ROl> 


R9 




HOV 


R9.R3 




ROL 


R3 


llGET LSB OF THIS DIGIT 


DCCB 


tOHODG 


llTYPE THIS DIGIT? 


BPL 


7t 


IIBR IF NO 


BIC 


•l7777i»R3 


JIGEI RID OF JUNK 


BNE 


4t 


ilTEST FOR 


I8T 


R4 


II SUPPRESS THIS d1 


BEO 


ft 


IIBR IF YES 


IHC 


R4 


ilDOH'T SUPPRESS ANYHORE O'S 


BIS 


»'0,R3 


llHAKE THIS DIGIT ASCII 


BIS 


»' ,Ri 


IIHAKE ASCII IF NOT ALREADY 


HOVB 


R3,et 


llSAVe POR TYPING 


TYPE 


• at 


llGO TYPE THIS DIGIT 


DECB 


tOCNT 


II COUNT BY 1 


BCT 


it 


II BR IF MORE TO DO 


BLT 


6t 


1 IBR IF DONE 


INC 


R4 


MINSURE LAST DIGIT ISN'T A BLANK 


BR 


3t 


llGO 00 THE LAST DIGIT 


HOV 


(BP]«,M 


II RESTORE R5 


HOV 


(BP)t»M 


II RESTORE R4 


HOV 


(SP)^,M 


II RESTORE R3 
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6115 


•2364f 


016666 000002 


000004 


HOV 


2fSP) 


41SP) 


nSET the STACK FOR RETURNING 


6114 


933646 


013616 




HOV 


(SP)* 


(OP) 




61)7 


033650 


000002 




RTI 






M RETURN 


6118 


023653 


000 


• •I 


.BYTE 







llSTORAGE FOR ASCII DIGIT 


6119 


023693 


000 




.BYTE 







MTERMINATOP FOR TYPE ROOTING 


6120 


021694 


000 


lOCNTi 


.BYTE 







II OCTAL DIGIT COUNTER 


6121 


021655 


000 


lOFILLi 


.BYTE 







irtERO FILL SWITCH 


6133 


021696 


000000 


tOHODtl 


.HORD 







llNVMBER OF DIGITS TO TYPE 



6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6111 
6112 
6111 
6114 
6115 
6116 
6117 
6llS 
6119 
6140 
6141 
6143 
6143 
6144 
6149 
6146 
6147 
6148 
6149 
6150 
6191 
6152 
6191 
6194 
6199 
6196 
6197 
6198 
61S9 
6160 
6161 
6162 
616] 
6164 
6165 
6166 
6167 
6168 
6169 
6S7() 



.SBTTL TTT INPUT ROUTINE 



023660 
033666 
•33670 
023674 
023676 
033703 
033706 
033712 
023714 
023722 

023724 
023730 
023734 
023740 
023742 
023746 
023790 
023792 
023796 

023760 
023764 



023770 
023774 
023776 
024002 
024306 



e24idl0 
024ai4 
024016 
0}4t)23 



022737 
001074 
109777 
100071 
117746 
042716 
022726 
001063 
123727 
0014S6 

104401 
104401 
013746 
104402 
1044H1 
009046 
005046 
109777 
100179 

117746 
042716 



031627 
O010K5 
104401 
067706 
000757 



021627 
001022 
00576b 
a014Pi3 



000176 001140 
155290 

155244 

177600 
000007 

001134 000001 

024545 
024552 
000176 

024563 
155166 



159162 
177600 



024540 

000006 



01)0015 



.ENABL LSB 



II •••••»•»«»••*••»••••••«•••«•••••»••••••*••»»••••»••••»#«••••••• 

|«SOFTHARE SNITCH RBSISTCR CHANGE ROUTINE. 
••ROUTINE IS ENTERED FROM THE TRAP HANDLER > AND HILL 
lOERVICE THE TEST FOR CHANGE IN SOFTWARE SNITCH REGISTER TRAP CALL 
r»NHBN OPERATING IN TTY PLAO NODE. 



tCKSMPI CMP 
BNE 
ISTB 
BPL 
HOVB 
BIC 
C«P 
BNE 
CHPB 
BEO 

TYPE 

tGTSWRI TYPE 
NOV 
lYPOC 
TYPE 
CLR 
CLR 
TSTB 
BPL 

MOVB 
BIC 



CMP 

BNE 

TYPE 

ADD 

BR 



1911 
711 



CMP 
BNE 
TST 
BEO 



tSWREG.tHR 
19t 

• ITKI 
19t 

•ITKBi-(8P) 
»*C177,(8P) 
•7,(SP)+ 
150 

IAUT0B,*1 
15t 

ftCNTLG 

itMSHR 

SWRE6«-(SP) 

(tMNEH 

-<SP) 

>(SP) 

• tTKS 
7t 

8tTKB,-(SP} 
••C177,(SP} 



(SP),t29 
101 

>SCNTLU 
• 6, BP 
|9t 



C8P),M5 
I6t 
4(SP) 
lit 



lis THE SOFT-SMR SELECTEDt 
ISRARCM IF NO 
tCHAR THERE? 

IIF N0« DON'T WAIT AROUND 

I SAVE THE CHAR 

ISTRIP-OFF THE ASCII 

lis IT A CONTROL GT 

|NOf RETURN TO USER 

fARC HE RUNHIHG IN AUTO«M0OET 

I BRANCH IF YES 

(ECHO THE CONIROL-G (*G) 

I TYPE CURRENT COHIBHTi 

I SAVE SWREG For TTPCOOT 

iGO TYPE—OCTAL ASCII (ALL DIGITS} 

I PROMPT FOR NEW 8HR 

I CLEAR COUNTER 

I THE HEM SNR 

tCHAR THERE? 

Iir NOT TRY AGAIN 

IPICK UP CHAR 

IMAKE IT 7-BIT ASCII 



Ills IT A CONTROL-U? 

I (BRANCH IF NOT 

1 1 YES, ECHO COMTROb-U CU} 

1 1 IGNORE PREVIOUS INPUT 

MLFT'S TRY IT AGAIN 



I I IS IT A <CP>? 
; IBBANCH ir NO 

MVFSi IS IT THE FIRST CHAP? 
! (BRANCH TT YES 
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6171 
6172 
S!73 
6174 
617S 
6176 
6177 
6178 
6179 
618(9 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 
6149 
6200 
6201 
6202 
6203 



SCO 0130 



024024 


016677 


000^03 


155106 




MO* 


2CSP)f8SHR 


024032 


062706 


000006 




liti 


too 


(6>SP 


024036 


104401 


001213 




14Sg 


TltPE 


rtCRIiF 


024042 


123727 


001135 


000001 




CHPB 


tlNT&Grtl 


024050 


001003 








BNC 


15* 


024052 


012777 


000100 


155064 




MOT 


I100f BtTKS 


034060 


000002 






15(1 


RTI 


PC* *TlfPEC 


024062 


004737 


023136 




16tt 


JSR 


024066 


021627 


000060 






CMP 


(SP)>I60 


024072 


002420 








BIT 


181 


024074 


021627 


000067 






CHP 


tSP) »i67 


024100 


003015 








BGT 


188 


024102 


042726 


000060 






BIC 


»6B> (SP)« 


024106 


005766 


000002 






T8T 


2(8P) 


024112 


00140 3 








BEQ 


17« 


024114 


006316 








«SL 


tSP] 


024116 


006316 








kSL 


(SP) 


024120 


006316 








kSL 


(5P) 


024122 


00S266 


000i402 




17»l 


INC 


2(SP1 


024126 


056616 


177776 






BIS 


•2(SP},($P) 


024132 


000707 








BR 


71 


024134 


104401 


001212 




ie«> 


TYPE 


>«QCJES 


024140 


S00720 










2>« 



tSkVe HEW SNR 

(CLEAR UP STACK 

J ECHO <CR> AND <Lr> 

jRE-EHABLE TTY KBO INTERRUPTS? 

{BRANCH IF NOT 

jRE-EHABLE TTY KBD INTERRUPTS 

(RETURN 

I ECHO CHAR 

JCHAR < 0T 

(BRANCH ir YES 

(CHAR > 77 

(BRANCH IF YES 

(STRIP-OFF ASCII 

(IS THIS THE FIRST CHAR 

(BRANCH IF YES 

tHO, SHIFT PRESENT 

( CHAR OVER TO MAKE 

( ROOM FOR NEM ONE. 

(KEEP COUNT OF CHAR 

(SET IN NEW CHAR 

(GET THE NEXT ONE 

(TYPE 7<CR><LF> 

(SIMULATE CONTPOL-U 



.DSAAIi LSB 



I (»•#»»»»•••»•»••••»*••••»*••♦•*♦•♦••••••••••»*♦••••••••••••♦•••• 

(•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FRO»< THE TTY 
(•CALL! 



ROCHR 

RETURN HERE 



6205 


024142 


Ml 1646 






*RDCHRl 


MOV 


(SP>c(SP) 


((PUSH DOMH THE PC 


6206 


024144 


01 '^666 


000004 


^00002 




MOV 


4(SP)f2(8P) 


((SATE THE PS 


6207 


024152 


1P?777 


15476b 




IK 


TSTB 


•fTKS 


((HAIT FOR 


6208 


024156 


103375 








BPL 


1( 


((A CHARACTER 


6209 


024160 


117766 


154762 


000004 




MOVB 


•tTKB,4CSP) 


((READ THE TTY 


6210 


024166 


0i2766 




(100004 




BIC 


#*C<177>,4t3P) 


((GET RID OF JUNK IF ANY 


6211 


024174 


026627 


0H0004 


000023 




CMP 


4(ap},«23 


((is IT A CONTROL-Sr 


6212 


024202 


031013 








BNE 


31 


((BRANCH IF NO 


6213 


024204 


101777 


154734 




3li 


TSTB 


BSTKS 


((WAIT FOR A CHARACTER 


6214 


024210 


100375 








BPL 


2t 


((LOOP UNTIL ITS THERE 


6215 


024212 


117746 


134730 






MOVB 


MTKBfCSP) 


((OET CHARACTER 


6216 


024216 


042716 


1776(>I0 






BIC 


»*C177. (BP) 


((HAKE IT 7-BfT ASCII 


6217 


024222 


H22627 


000021 






CMP 


(8P)+.«21 


;(IS IT A CONTROL-Q? 


6218 


024226 


001366 








8NE 


21 


(I IF MOT 013CARD IT 


6219 


024230 


0807S0 








BR 


It 


((YES, RESUME 


6220 


024732 


026677 


000004 


000140 


311 


CHP 


4(SP),«140 


J (IS IT UPPER CASET 


6221 


024240 


0024137 








BLT 


4« 


((BRANCH IF YES 


^222 


024242 


026627 


000C104 


000175 




CHP 


4(8P),1>175 


( (IS IT A SPECIAL CHAR? 


6223 


024250 


003003 








BGT 


4» 


((BRANCH IF YES 


6224 


024252 


042766 




000004 




BIC 


I4a,4(ap) 


((MAKE IT UPPER CASE 


6225 


024260 


000003 






411 


RTI 




((GO BACK TO USER 



(IHPUT A SINGLE CHARACTER FROM THE TTY 
(CHARACTER IS ON THE STACK 
(HUH PARITY BIT STRIPPED OFF 
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6227 










(♦THIS 


ROUTINE 


KILL INPUT A STRING FROM THE TTY 


6228 










(•CALL! 








6279 










»• 


ROLIN 




((INPUT A STRING FROM THE TIY 


62 J 










»* 


RETURN 


HERE 


((ADDRESS OF FIPST CHARACTER NILL BE ON THE 


62 51 










I» 






1 (TERMINATOR WILL BE A BYTE OF ALL 0'S 


62 j2 
6233 


324262 


0It»346 






«RDI.IM( 


MOV 


R3,-C8P) 


((SAVE R3 


6234 


024264 


005046 








Ct.R 


-(8P3 


((CLEAR THE RUBOUT KEY 


6235 


024266 


012703 


024516 




111 


MOV 


•tTTYIN/R3 


( (GET ADDRESS 


6236 


tJ24272 


022703 


024540 




311 


CMP 


«»TTyiN*22»R3 


((BUFFFR FULL? 


6217 


024276 


101456 








BL08 


4« 


J (BR IF YES 


6238 


024300 


104410 








RDCHR 




((GO READ out CHARACTER FROH THE TIY 


6239 


024302 


112613 








NOVB 


(SP)+, (R3) 


( (GET CHARACTER 


6240 


024304 


122713 


000177 




1011 


CMPB 


»177,(R3) 


((IS IT A RUBOUT 


6241 


024310 


001022 








BNE 


5$ 


((BR IF NO 


6242 


02431 2 


005716 








TST 


(SP) 


((IS THIS THE FIRST RUBOUT? 


6243 


024314 


001007 








BNE 


6i 


((BR IF NO 


6244 


024316 


112737 


000134 


024514 




MOVB 


»'\i»8 


((TYPE A RACK SLASH 


6245 


024324 


104401 


024514 






TYPE 


.91 




6246 


024330 


012716 


177777 






HOT 


•-1,£8P) 


( (SET THE RUBOUT KEY 


6247 


024334 


005 303 






««l 


DEC 


P3 


( (BACKUP BY ONE 


6248 


024336 


020327 


024616 






CHP 


R3,»»TTYIN 


((STACK EMPTY? 


6249 


024342 


103434 








BLO 


4t 


((BR IF YES 


6250 


024344 


111337 


024514 






HOVB 


(R3)»9I 


((SETUP TO TYPEOUT THE DELETED CHAR, 


62S1 


024350 


104401 


024514 






TYPE 


»9I 


((00 TYPE 


6252 


024354 


090746 








BR 


21 


|(S0 READ ANOTHER CHAR. 


6253 


024356 


005716 






511 


TST 


(SP) 


((RUBOUT KEY SET? 


6254 


024360 


001406 








BEQ 


ft 


((BR IF NO 


6255 


024362 


112737 


000134 


024514 




HOVB 


*'\,n 


((TYPE A BACK SLASH 


62S6 


024370 


104401 


024514 






TYPE 


,9t 




6257 


024374 


005016 








CLR 


(SP) 


((CLEAR THE RUBOUT KEY 


6258 


v)24376 


122713 


000025 




781 


CHPB 


135, (R3) 


((IS CHARACTER A CTRL U? 


6259 


024402 


001003 








BNE 


• « 


((BR IF NO 


6260 


024404 


104401 


024540 






TYPE 


.ICHTLU 


((TYPE A CONTROL "U» 


6261 


024410 


000736 








BR 


11 


((GO START OVER 


6262 


024412 


122713 


000022 




Sll 


CMPB 


122, (R3) 


((18 CHARACTER A "*R»? 


62«3 


024416 


001011 








BNE 


31 


((BRANCH IF HO 


6264 


024420 


105013 








CLRB 


(R3) 


((CLEAR THE CHARACTER 


6265 


024422 


104401 


001213 






TYPE 


>ICRLF 


((ITPE A "CR" f. 'LF" 


6266 


024426 


104401 


024516 






TYPE 


#»TTY1H 


((TYPE THE INPUT STRING 


6267 


024432 


000717 








BR 


3« 


((00 PICKUP ANOTHER CHACTER 


6268 


024434 


104401 


001213 




411 


TYPE 


.lOUES 


((TYPE A 'T* 


6369 


024440 


000712 








BR 


1* 


((CLEAR THE BUFFER AND LOOP 


6270 


024442 


111337 


024514 




311 


HOVB 


(R3)r9l 


((ECHO THE CHARACTER 


6271 


024446 


104401 


024514 






TYPE 


,91 




6272 


024452 


122723 


000015 






CMPB 


»15, rR3) + 


((CHECK FOR RETURN 


6273 


024456 


001305 








BNE 


2* 


((LOOP IF HOT RETURN 


6274 


024460 


105H6 3 


177777 






CLRB 


-1 (R3) 


((CLEAR RETURN (THE 15} 


6275 


024464 


104401 


00121 4 






TYPE 


,»LF 


((TYPE A LINE FEED 


6276 


074470 


005726 








T8T 


(8P)t 


((CLEAN RUBOUT KEY FROM THE STACK 


6277 


024473 


012603 








HOV 


CSP)+.P3 


((RESTORE R3 


6278 


024474 


01 1646 








MOV 


(SP),-(SP) 


((ADJUST THE STACK AND PUT UDDRESS OF THE 


6279 


024476 


016666 


000004 


000002 




HOV 


4(8P1,2(8P) 


(( FIRST ASCII CHARACTER ON IT 


6280 


024504 


012766 


024516 


000004 




MOV 


•tTTyiN,4(SP) 


6281 


024S12 


000k)B2 








PTI 




! (RETURN 


62fl2 


024514 


00S^ 






9C> 


.BYTE 





((STORAGE FOR ASCII CHAR. TO TYPE 



H»INDeC-ll-OlRKK-D MACYJl 27(lBe«) 04-OCT-76 J6IB6 P»GE MS 

DZRKKD.Pll 22-5eP-76 BBMT ITt INPUT POUTJNf 



SEC 0132 



6283 


024515 


000 


6284 


024516 


000022 


6201 


024540 


052536 


6286 


024545 


136 


6287 


024552 


005015 


628B 


034560 


020075 


6289 


024563 


040 


629B 


024570 


036440 


6291 






6292 






6293 






6294 






629S 






6396 






6297 






629B 






6299 








024574 


010046 


63B1 


034576 


016600 


6302 


034602 


005740 


6303 


024604 


11 10H0 


6)04 


024606 


006300 


6305 


024610 


016000 


6306 


024614 


000200 


6307 






6308 






6 3B9 






6310 






6)li 


024616 


01 1646 


6312 


024620 


016666 


6)13 


024626 


000002 


6314 






6315 






6316 






6)17 






6318 






6319 






6320 






6321 






6322 


024630 


024616 


6323 


024632 


022766 


6)24 


024634 


023456 


6325 


0246)6 


02)432 


6326 


024640 


023472 


6)?7 


024642 


023206 


6328 






6329 


024644 


023730 


6))(i) 






6))1 


074646 


023660 


63)2 


02465U 


024142 


63)3 


024653 


024262 


6334 






6335 


024654 


021666 


6)16 






6337 


0246S6 


021722 


63)8 







B00 
B00012 



• BYTE 
ITTIINI .BI.XB 
tCNTLUl .ASCIZ 
ICNTLGl .ASCIZ 
(MSWRl .kSCIZ 

IfNEH: .ASCIZ 




22 

/*U/<15><t2> 
/-G/<15><12> 
<19><12>/9WR 

/ NCH « / 



mtcrminator 

iireservf 22 bttes for it» input 
ijcohtrol "u" 

nCOHIROL "C" 



ICONTROL U. RUBOUT CKPABlLlTV 



.SBTTL TR«P DECODER 



l»THIS ROUTIWr WILL PIC«UP THE COWER BYTE Of THE "TRAP" IN»TRUCTION 
|>AND USE IT TO IHDEX THROUGH THE TRAP TABLE EOR THE BTABTIMG A0DRE8S 
J»Or THE DESIRED ROUTINE. THEN UBINC THE ADDRESS OBTAIHEO IT WILL 



|»C0 TO 


THAT 


ROUTINE. 




ITPAPI 


MOV 


R0,'>(SP} 


nSAVE R0 


HOV 


2(SP),R0 


tiGET TRAP ADDRESS 




TST 


-(R0) 


1 (BACKUP BY 2 




NOVB 


(R0}.R« 


IICET RIGHT BYTE Of TRAP 




ASL 


R0 


llPOSITIOki FOR INDEXING 




MOV 


ITftPAD(R0)« 


R0 } (INDEX TO TABLE 




RTS 


R0 


MGO TO ROUTINE 


tiTHIS 


IS USE 


TO HANDLE THE 


"CETPRI" MACRO 


(TRAP2I 


MOV 


(SP),-(SP) 


MMCVE THE PC OONH 




MOV 


4(SP}.2(SP) 


nMOVE THE PSW DOUH 




RTI 




n RESTORE THE P8M 


.SBTTL 


TRAP 


TABLE 





»»THI5 TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;»Bi THE "TRAP" INSTRUCTION. 



(TRPADI .WORD 
• TYPE 
•TYPOC 
ITYPOS 
tlYPON 
BTTPDS 



• TIIAP2 

iiOallmttpe 

»»CHiL»TTPOC 
KCAliLMTYPOS 
llCALLaTYPON 
nCALLsTYPDS 



tCTSWR nCALL*GTSHR 

tCKBWR DCALLaCKSHR 

IRDCHR nCALL'RPCHP 

IRDLIN llCALLaRDLIN 



TRAP+1( 104401) TTY TYPEOUT ROUTINE 

TRAP+2(104402) TYPE OCTAL NUMBER (HITH LEADING ZEROS) 

TRAPt3(1044e)) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP«^5(104405) TYPE DECIMAL NUMBER (NITH SIGN) 

TPAP+6(104406) GET SOFT-SHR SETTING 

TRAP«7( 104407) TEST FOR CHANGE IN SOFT-SWR 

TRAP + 1PI(1»4410) IIY TYPEIN CHARACTER ROUTINE 

TRAP4^tl(10441t) TTY TYPEiN STRING ROUTINE 



CH.CROY MCALL«CHICCRDY TR AP + 1 2 ( 10441 2 ) CHECK CONTROL READY 

CN.RST nCALL»CHI, RESET TRAP* 1 3 { 10441 3 ) CONTROL RESET ROUTINE 



MAINOEC-I t-OZRKK-D MACYl 1 27(1H08) B4-OCT-76 16106 PAGE 116 

OZRKKO.Pll 22-SEP-76 08147 TRAP TABLE 



63)9 


024660 


021740 




6)40 








6341 


024662 


020764 




6343 








6)43 


024664 


020774 




6344 








6)45 


024666 


021572 




6)46 








6)47 


024670 


021614 




6)48 








6)49 


024672 


031500 




6350 








6)51 








6352 








6353 








6)54 








6)55 








6356 


024674 


012737 


025040 


6357 


024703 


0127)7 


000340 


6)58 


024710 


010046 




6)59 


024713 


010146 




6)60 


024714 


010346 




6)61 


024716 


010346 




6)62 


024730 


010446 




6363 


024722 


010546 




6364 


024724 


017746 


154210 


6)65 


0247)0 


0106)7 


035044 


6366 


0247)4 


012717 


024746 


6367 


024742 


000000 




6368 


024744 


000776 




6369 








6370 








6371 








6372 


024746 


013737 


03B040 


6373 


024754 


013706 


035044 


6374 


024760 


005037 


03S044 


6375 


024764 


0052)7 


035044 


6376 


024770 


001 )75 




6377 


024772 


012677 


154143 


6378 


024776 


01260S 




6379 


025000 


012604 




6)80 


025002 


01260) 




6381 


025004 


013603 




6382 


025006 


012601 




6383 


035010 


013600 




6384 


035012 


0137)7 


034674 


6385 


035030 


013737 


000340 


6386 


035036 


104401 




6387 


035030 


025046 




6381 


035033 


012716 




6389 


035034 


004630 




6390 


025036 


000002 




6391 


025040 


0vi0e00 




6392 


035042 


0MPT76 




6)93 


035044 


000000 




6)94 


025046 


Pi)5(l!5 


047520 



CN.RDY 


1 lCALL"CNT.PDY 


TRAP+14(104414) 


WAIT FOR CNTRL RDY 10 SET 






BDA0 


1 iCALLaBRKDAe 


TRAPf 15(104415} 


BREAK PKDA INTO DR I.CYL.BUR 


SEC 


BITS 


BDA4 


llCALL«BRKDA4 


TRAP'fl6( 104416] 


BREAK RKDA INTO DP *|CYL|8UR 


SEC 


BITS 


OELA.Y 


MCALLaDtLAY 


TPAP+17(104417) 


TINE DELAY ROUTINE 






HATINT 


MC*LL*MAT.INT 


TRAP*20(104420) 


MAIT FOR BKU INTERRUPT ROUTINE 




T8TSIN 


tiCALL'TST.SIN 


TRAP'>21(104421} 


TEST SIN ROUTINE 







.SBTTL POWER DOtN AND UP t>OUTINIS 

f )••*••••••••>•••««••*»•••*••••»■•*•••••»•»•••»•• t»* »•»*•• •»••»»• 

IPOWER DOHN ROUTINE 



IPWRONI NOV 

HOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HOV 

HALT 

PR 



KILLUPidPHRVEC nSET FOR FAST 
*340,»*PMRVEC+3 MPRI0I7 



UP 



R0,-(SP) 

R1.-(SP} 

R3.<(SP) 

R3,-(SP) 

R4,>(SP) 

A5,-(aP) 

•6NR,-(SP) 

IP,tSAVR6 



I t PUSH R0 ON STACK 

JJPUSH Rl ON STACK 

I (PUSH R2 ON STACK 

MPUSH R3 ON STACK 

I I PUSH R4 ON STACK 
MPUSH R5 ON STACK 

I I PUSH fSNR ON STACK 
llSAVE SP 



*IPWRUP.*«PWRVEC nSET UP VECTOR 



in 



tPOH!;R UP ROUTINE 



•PHRUPl 


MOV 


ISILLUP.PtPHRVEC 


MSET FOR PAST DOWN 




MOV 


6SAVR6.SP 


IGET SP 




CLR 


I3AVR6 


JWAII LOOP FOR THE TTY 


ill 


INC 


ISAVRB 


(WAIT FOR THE INC 




BNE 


11 


(OF WORD 




HOV 


(SP)«,8SWR 


IPOP STACK INTO aSNR 




MOV 


(SP)+,R5 


(POP STACK INTO H9 




MOV 


(8P}*>R4 


(POP STACK INTO |I4 




MOV 


(SP)+,R3 


(POP STACK INTO R3 




MOV 


(SP)4,R2 


(POP STACK INTO R2 




MOV 


(SP)+,R1 


(POP STACK INTO Rl 




MOV 




(POP STACK INTO Re 




MOV 


i|PHRDN,«IPHRVEC 


((SET UP THE POWER DOWN VECTOR 




HOV 


*34Br8*PHRVEC42 


(PRI0I7 




TYPE 




REPORT THE POWER FAILURE 


IPWRMGl 


.HORD 


•POWER 


(POWER FAIL MESSAGE POINTER 




MOV 


(PC)+r (SP) 


1 RESTART AT PFSTRT 


IPWRADI 


,WPPO 


PFSTRT 


■RESTART ADDRESS 




RTI 






IILLUPI 


HALT 




(THE POWER OP SEQUENCE WAS STARTED 




BR 


.-2 


1 BFFORE THE POWER OOWN WAS COMPLETE 


I3AVR6I 







JP'JT IHF SP HERE 



•POWERI .ASCIZ <15><l 3>"P0WER" 



HAlHOEC-H-DIRKK-0 HACYll 27(1806) e*-0CI-T6 16S06 PUGE 117 

DIRKKO.PU 32>SEl>-7e 00147 POKER DOHH AND UP ROUTINES 



SCO tl)4 



6399 
6396 
• 397 
639S 
6399 
6100 
6401 
6402 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
64|7 
6416 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6426 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6436 
6439 
6440 
6441 
6442 
6443 
6444 
644S 
6146 
6447 
6448 
6449 
645H 



03S054 000122 



035056 


0047 37 


021412 




TCHECKI 


JSR 


PC>ORESET 




1 RESETS DRIVE 


025062 


104026 








ERROR 


36 






025064 


104413 








CNT. RESET 






035066 


013737 


001350 


03S300 




HOV 


DRIVAOfDRHOLD 




02S0T4 


032737 


020000 


0013S0 




BIT 


t30000>ORIVAD 






025102 


001404 








BCO 


11 




IIHAKE EVEN 


025104 


042737 


020000 


001 1S0 




BIC 


•300e0«DRIVAD 




025112 


000403 








RR 


31 




IMAKE ODD 


025114 


052737 


030000 


001390 


111 


BIS 


t20000fDRIVAD 




035122 


013777 


001350 


194310 


311 


MDV 


DRIVA0.9RKDA 


; DRIVE 


ADDR 


02S130 


012777 


00001 1 


194174 




MOV 


•11 >6RKCS 




fdrive seek 


025136 


104414 








CNT.RDY 








025140 


013777 


025200 


154172 




HOV 


ORHOLDiDRKDA 




02S146 


104414 








CNT.ROlf 






lH£AbP& i !■ piUClUHilf 


025150 


032777 


000100 


154190 




BIT 


•100,aRKDS 




025156 


001001 








BRE 


3S 




1 HO SO RK*05J 


025160 


005725 








TST 


tR5) + 




lYES RK*05P 


025162 


013737 


035200 


001390 


Itl 


MOV 


DRHQLDfDRIVAO 




> RESTORE ADDR 


025170 


004737 


021412 






JSR 


PC»DRE5ET 




;HAIT FOR RESET 


025174 


104026 








B*Dono 


26 






025176 


000205 








RT5 


R5 






029200 


000000 






ORHOLDI 









AT DR0 


025202 


005037 


001350 






CbR 


ORIVAD 


ISTART 


025206 


P)12700 


001414 






WV 


fDRIV0,R0 




ITABLE OF AVAIL DRIVES 


025312 


005710 






411 


TST 


(R0) 




ITHIS DRIVE HEREf 












BEO 


2t 




INO 


025216 


005760 


000002 






TST 


2(R0) 




ICOMPLEMEHT HBREf 


025222 


00 1 4 1 








BEQ 


at 




iNO 


025224 


004537 


035056 






JSR 


RS.rCHECK 




JSEE IF F HODEl 


025230 


000405 








BR 


23 




1J MODEL 


025232 


052710 


100000 






BIS 


f 1000001 CR0) 




JSET SIGN FOR F 


029236 


052760 


100000 


000002 




BIS 


1100000, 2(R0} 




IBOTK DRIVES 


025244 


005720 






2*1 


TST 


(B0) + 






025246 


005720 








TST 






JNCXT PAIR OF DRIVES 


025250 


062717 


040000 


001)90 




AOD 


i40000>DRIVAD 




(NEXT ACTUL ADDR 


025256 


022700 


001 433 






CMP 


iORIV7+l,B0 






025262 


B03353 








BGT 


4« 




INOT TET 


025264 


f! 110207 








RTS 


PC 
















lEPROR 


MESSAteS 
















.SBTTL 


ERROR MESSAGES 






025266 


S945522 


041527 


043440 


EMI 11 


.ASCIZ 


/RKHC EROR/ 






t*25274 


047522 


000122 














02530? 


044523 


020116 


051511 


EM12I 


.ASCIZ 


/SIN IS SET/ 






025306 


051440 


052105 


000 












025313 


122 


041113 


020101 


EMl3i 


.ASCIZ 


/RKBA EROR/ 






025320 


051 105 


051117 


000 
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6451 


025 325 


122 


042113 


030101 


r«ii6i 


.ASCIt 


/RKDA WRONG AFTER 'SSEV 


6452 


025332 


051137 


047117 


030107 








6453 


025340 


041101 


042534 


030132 








6454 


025346 


051447 


043523 


00004T 








6455 
















6456 


025354 


045533 


0S1504 


042440 


EM21I 


.ASCIE 


/RKDS EROR/ 


6457 


029362 


047533 


000122 










645fl 
















6459 


025366 


050104 


030114 


043933 


tM)0l 


.ASCII 


/OPL SET/ 


6460 


035 374 


000124 












6161 
















6462 


039376 


051 104 


030129 


04393) 


tH)ll 


.ASCII 


/DRU SET/ 


6463 


025404 


000124 












6464 
















6165 


025406 


045522 


033460 


041040 


EM33I 


.ASCIZ 


/RK95 BIT NOT SET/ 


6466 


025414 


053111 


047040 


052117 








6467 


025432 


051440 


093105 


000 








6468 
















6469 


025427 


104 


094922 


041040 


EM33i 


.ASCIZ 


/DRY BIT ROT SET/ 


6470 


025434 


052111 


047040 


093117 








6471 


025442 


051440 


052109 


000 








6172 
















6473 


029447 


123 


04951T 


043040 


EM34I 


.ASCIZ 


/80K DIDN'T SET/ 


6474 


035434 


042111 


021916 


030134 








6475 


035463 


042523 


000134 










6 476 
















6477 


039466 


042523 


026S03 


047101 


EM35I 


.ASCII 


/8BC-CNIR DIDN'T COUNT TO 0/ 


6478 


029474 


051124 


043040 


043111 








6479 


025902 


023516 


020134 


04T503 








iiel^ 


025510 


047125 


030134 


047924 








6481 


039916 


030040 


000 










6482 
6483 


039931 


173 


041909 


041455 


eM36l 


.ASCII 


/SEC-CNTB DIDN'T INCRMNT/ 


6484 


025926 


•521)6 


030133 


044904 








6485 


029934 


0471)94 


093047 


044440 








6466 


039542 


041516 


046533 


092116 








6487 


035550 


000 












6468 
















6469 


029551 


123 


041509 


041455 


EM37I 


.ASCIZ 


/8EC-C0l)NTR IMCBHENTEO WRONG/ 


6490 


029556 


052517 


052116 


030132 








6491 


039564 


047111 


051103 


043519 








6492 


039573 


052116 


043105 


09)440 








6493 


035600 


047532 


04)916 


000 








6494 
















6495 


025605 


104 


043111 


03)916 


EM40t 


.ASCIZ 


/DIDN'T GET SC"SA FOB THIS SECIR/ 


6496 


025612 


030124 


043907 


030134 








6497 


025620 


04)523 


05)479 


030101 








6498 


025626 


047506 


030133 


044134 








6499 


029634 


05151 1 


051440 


041509 








6500 


025642 


051 124 


000 










6501 
















6502 


025645 


105 


047533 


026922 


rM41l 


.ASCIZ 


"EROR-R/W/S RDY SHOULD BE SET" 


6503 


025652 


027522 


027527 


020133 








6504 


035660 


042122 


020131 


044133 








6509 


025666 


H525)7 


042114 


041040 








6506 


025674 


320105 


042533 


000124 









NkINDeC-lt*0>RKK-0 MkCYil 37(1006) 04-OCT-76 16106 PAGE 119 

DIRKRD.PIt a2-SeP«76 08147 EPROR MESSAGES 



atu em 



6S07 










6508 


025703 


047125 


054105 


042530 


6S09 


035710 


053103 


042105 


051040 


6510 


03S716 


030513 


030061 


047111 


6511 


025734 


043524 


051133 


050139 


6512 


025733 


000124 






6513 










6514 


025734 


047103 


•51124 


030114 


6515 


02S743 


043123 


020131 


044504 


6516 


03S7S0 


047104 


053047 


051440 


6517 


03S7S6 


052109 


040440 


083106 


6518 


025764 


051105 


051440 


043509 


6519 


039772 


020113 


051117 


043040 


6520 


036000 


020132 


042523 


043933 


6531 


026006 


000124 






6533 










6531 


036010 


051105 


020132 


091117 


6524 


036016 


044040 


020105 


044502 


6535 


026024 


020124 


043523 


030134 


6526 


036032 


047117 


051440 


043909 


6527 


026040 


020113 


051117 


042040 


6538 


036046 


020122 


043522 


043533 


6S29 


036054 


000i:>4 






65)0 










6531 


026U56 


045522 


051 105 


041040 


6532 


026064 


0521 It 


020054 


047117 


6533 


026072 


051 440 


042505 


030113 


6534 


026100 


051 t 17 


042040 


020133 


6535 


026106 


042522 


042523 


000134 


6536 










6537 


026114 


045522 


051503 


041440 


6538 


036122 


047110 


043107 


040440 


6539 


026130 


052106 


020122 


053506 


6540 


026136 


041516 


044924 


0471 17 


6541 


026144 


053440 


051501 


043040 


6542 


036153 


047117 


000105 




6543 










6544 


036156 


027533 


027537 


030131 


6545 


026164 


043123 


020131 


044904 


6546 


026172 


047104 


052047 


041440 


6547 


026200 


043514 


051101 


000 


6548 










6549 


026205 


133 


053457 


051457 


6550 


026212 


051040 


054504 


042040 


65S1 


026220 


042111 


023516 


020124 


6552 


026226 


042533 


020124 


043101 


6553 


026234 


051134 


051440 


042505 


6554 


026242 


030113 


051 117 


042040 


6555 


036250 


020122 


042532 


042523 


6556 


026256 


000124 






6557 










6558 


026260 


(145522 


040504 


041440 


6559 


026266 


047110 


042107 


040440 


6560 


026274 


057106 


Cf20122 


042523 


6561 


036302 


('45505 


000 




6562 











El(43l .use IE /OHEXPECftD RE 11 INTERRUPT/ 



EH44I .»8C1Z /C«T0t BDY OIO"'T BEt AETER SEEK OB OR RESET/ 



BM4St .»8CIZ /ERR OR HE BIT SET 6h SEEK OR OR RESET/ 



.ASCII /RKBR llTr OM SEEK OR OR RESET/ 



EM47( .ASCII /RKCS CHdaO AE^R rUNCTIOW NA6 DONE/ 



.ASCII 'R/U/S RDY DCDN'T CLEAR" 



.ASCIZ "R/W/S RDT OION'T SET AETR SEfK OB OR RESET" 



.ASCIt /RKOA CHNOO AETR SEEK/ 



HAINDEC-ll-OZRKK-D HACVlt 27(1006) 04-0CT<76 I6t06 PAGE 130 

DZRKKD.Ptl 22-5EP-76 i>Sl47 ERROR MESSAGES 



6163 


026305 


103 


0521 16 


046113 


(•Hi 


036312 


051240 


094904 




6565 


026320 


042111 


023516 


020124 


6566 


026326 


046103 


020122 


051501 


656' 


026334 


043440 


020117 


040537 


656S 


026342 


02H123 


042931 


000124 


6569 










6570 


02655(1 


047103 


051124 


020114 


6571 


026356 


043132 


020131 


044904 


6572 


026364 


047104 


093047 


051440 


6573 


026372 


053105 


047440 


020118 


5574 


026400 


05U27 


027924 


046508 


6575 


026406 


030124 


092123 


051101 


6576 


036414 


044534 


043516 


043040 


6577 


026422 


047522 


020119 


043074 


6578 


026430 


045523 


040455 


051104 


6579 


026436 


051509 


000076 




6580 










6581 


026442 


042510 


047440 


030133 


6582 


026450 


051105 


020133 


047117 


6583 


026456 


053440 


052122 


043057 


6584 


026464 


052115 


051440 


040534 


6585 


036472 


053133 


047111 


030107 


6586 


026500 


051106 


046917 


016040 


6587 


026506 


091504 


036913 


043101 


6588 


026514 


043533 


017123 


000 


6589 










6590 


026521 


133 


042113 


03O10J 


6591 


026526 


C47111 


091103 


04711S 


6592 


026534 


043134 


093440 


047532 


6593 


026542 


043516 


047440 


030118 


6594 


026550 


051131 


026934 


046808 


6595 


026556 


000134 






6596 










6597 


026560 


045533 


041927 


043040 


6598 


026566 


042111 


033816 


030134 


6599 


026574 


!»53117 


043133 


047914 


6600 


026602 


047440 


030116 


091137 


6601 


026610 


I>i20124 


046806 


000134 


6602 










6603 


026616 


045533 


040903 


044440 


6604 


026624 


041516 


046533 


093116 


6605 


026632 


030104 


091137 


047117 


6606 


026640 


030107 


047117 


053440 


6607 


026646 


053122 


043040 


053119 


6608 


036654 


000 






6609 










6610 


036655 


123 


043513 


020133 


6611 


(136663 


042533 


036134 


047117 


6613 


036670 


053440 


093133 


047440 


6613 


036676 


020122 


043122 


047440 


6614 


036704 


020122 


046906 


000134 


6615 










6616 


026712 


045532 


041104 


043440 


66t7 


036720 


047522 


000123 




6618 











EM53I .ASCIZ /CNTRL RDY DIOK'T CCR AS GO WAS SET/ 



E"54l .ASCIZ »C«TRL RDlf OIOM'T SET ON WBI/rHT STARTING FPOH <DSK-ADPES>" 



EH99I .ASCIZ "HE OR ERR ON HRT/rMT STARTING FROM <D8K-A0RES>' 



EH56I .ASCII /RKOA WCRMNTD URONG ON WRT-FMT/ 



EM57t .ASCII /PKWC DIDN'T OVRELO ON WRT FMT/ 



EH6ei .ASCII /BKBA IHCPHMTD WRONG ON WPT rMI/ 



EM61I .ASCII /RKER SET. ON NRT OP HO OR EMT/ 



E«62l .ASCIZ /Hl?08 EPOB/ 



HAINoeC-n-DERKK-D MACni 21(1086) «l4-0CT-76 16l»b PACE 121 

DZRKKD.Pll 22-SEP-76 PI8M7 EPROR MESSAGES 



6619 


926724 


045533 


040504 


044440 


66J0 


026732 


041516 


046533 


052116 


6621 


026740 


030104 


051 127 


047117 


6622 


026746 


030107 


047117 


051040 


662J 


026754 


020104 


05U17 


051040 


6624 


026762 


020104 


046506 


000134 


5625 










6626 


B2&770 


(i45522 


041527 


042040 


6627 


025776 


042111 


033516 


020134 


6628 


027004 


053117 


043132 


047S14 


6629 


027012 


047440 


020116 


042132 


663^ 


027020 


047440 


020122 


042132 


6611 


027026 


043040 


052115 


000 


6632 










6633 


027033 


122 


041113 


»20101 


66J4 


027040 


047111 


051 103 


t1471 15 


6635 


027446 


042134 


053440 


047S23 


6636 


027054 


043516 


047440 


030116 


6637 


027062 


043133 


047440 


^20122 


6638 


027070 


0431 22 


043040 


052115 


6639 


027076 


000 






56 4f 










6641 


027077 


111 


041S16 


051117 


6642 


027104 


042522 


053103 


044040 


6643 


027112 


04050!! 


043SP4 


020132 


6644 


027130 


051106 


046517 


023440 


6645 


027136 


042523 


053103 


051117 


6646 


027134 


000047 






6647 










6648 


027136 


040504 


040534 


042440 


6649 


027144 


051122 


051117 


000 


6650 










6651 


027151 


103 


053116 


046123 


6652 


027156 


031040 


054504 


042040 


6653 


027)64 


04211 1 


033516 


020124 


6654 


027172 


042523 


020124 


047117 


6655 


027200 


051040 


037504 


046S06 


6656 


027206 


030174 


053123 


051101 


6557 


027314 


044524 


043516 


043040 


6658 


027233 


047522 


030115 


042074 


6559 


027230 


045523 


040455 


051104 


666>^ 


027236 


051505 


000076 




6661 










6662 


027242 


0425 IH 


047440 


020122 


6663 


027250 


051105 


020122 


047117 


6664 


027256 


051040 


027504 


046506 


5665 


027254 


020124 


052123 


051 101 


5666 


027272 


044524 


043515 


043040 


6667 


a273PI0 


047522 


020115 


042074 


6668 


02 7 336 


045523 


040455 


05U04 


6669 


027314 


051505 


000075 




6670 










5671 


027320 


051 127 


04711 7 


020107 


6672 


027326 


JI51104 


053111 


020105 


6673 


027334 


042111 


04444t< 


020116 


6674 


027343 


045523 


051504 


040440 



eM63l .ASCtZ /RKDA IHCRMBTD WROHG ON RD OR BD fUT/ 



EM64: .ASCIS /RKWe DIDN'T 0¥»rijO OM RD OR RD FMT/ 



FM55J .ASCIZ /RKBA INCRMHTO BROBS ON RD OR RO FHI/ 



.ASCII /INCORRECT HEADER FRO« 'SECTOR'/ 



EM67t .ASCIZ /DATA ERROR/ 

E»70: .ASCIZ "CMTRL ROT OIDM'T SET ON RD/rMT STARTING FROM <08K-ADRE5>" 



EH71: . ASCIZ "HE OR ERR ON RO/FHT STARTING FROH <DSK-ADRE5>' 



EM72t .ASCIZ /MRONG DRIVE ID IN RKOS AFTER SEEK/ 



MATNDEC-ll-DZRKK-D MACIl 1 27(100t) 04-OCT-76 16106 PACK 123 

DZRKKD.Pll 22-Se:P-76 08147 ERROR lESSACES 



6675 


037350 


f52l«6 


051 105 


051440 


6576 


027356 


342505 


000113 




6677 










6678 


027362 


051 110 


053504 


043523 


6579 


027370 


050040 


046117 


036914 


6580 


027375 


051 104 


020126 


043111 


6681 


027404 


041040 


052111 


034133 


6682 


027412 


kt3i4ei 


030455 


024469 


65B3 


027420 


051440 


045110 


041104 


6684 


027426 


023105 


046103 


000122 


6685 










6685 


027434 


051 1 10 


053504 


042523 


6687 


027443 


050040 


045117 


1^26514 


6688 


027450 


047111 


051124 


050129 


6689 


027456 


044924 


043515 


042040 


6690 


027464 


044532 


020175 


03004J 


6691 


027472 


047515 


030124 


051 120 


6693 


027500 


047123 


000134 




6693 










6694 


027504 


051104 


05311 1 


021440 


6695 


027513 


042040 


042111 


023916 


6696 


027S20 


020124 


04711 1 


051134 


6697 


027S36 


05^129 


030124 


043101 


6698 


037934 


042524 


020122 


051110 


6699 


037943 


05 3504 


043527 


050040 


6700 


037950 


046117 


0001 1 4 




6701 










6703 


037594 


041523 


020120 


044904 


6703 


037963 


047104 


052047 


051440 


6704 


037570 


052105 


040440 


053106 


670S 


037976 


051105 


051 440 


04290S 


6T0« 


037604 


0201 13 


040927 


03012J 


6707 


037613 


047504 


042516 


000 


6700 










6709 


037517 


122 


047113 


030101 


6710 


037634 


044103 


047101 


043107 


6711 


027632 


040440 


052106 


051 105 


6712 


037640 


042040 


044522 


030126 


6713 


027646 


047523 


042533 


000134 


6714 










671$ 


027694 


040504 


040524 


043440 


67l6 


037663 


047521 


020122 


052101 


6717 


027670 


053440 


051117 


031504 


6718 


037676 


000 






6719 










6730 


037S77 


103 


052115 


046133 


673! 


027704 


051040 


054504 


043040 


6722 


027713 


042111 


023516 


020134 


6723 


037730 


042523 


020124 


043101 


6734 


037726 


042524 


020132 


•42133 


6735 


037734 


041440 


045910 


000 


8736 










6737 


027741 


105 


091122 


047440 


6728 


027746 


070122 


042510 


047440 


6739 


027794 


0201 16 


047122 


041440 


6730 


027763 


045510 


00H 





.ASCIZ /HRDHRE POLL-DKV ID BITS( 13.15) SHLOBE CdR/ 



.ASCIZ /HRDWRE P0LL-IRTRUPTIN6 DRIV • NOT PRSNT/ 



.ASCIZ /DRIV t DIDN'T INTRUPT AFTER HRDWRE POLL/ 



.ASCIZ /SCP DIDN'T OtT AFTER SEEK HAS DONE/ 



.ASCIZ /RKDA CHAIiaO kfTCR DRIV RESET/ 



.ASCII /DATA EROn AT HORDt/ 



EM101I .ASCIZ /CNTRt RDY OIDH'T SET AFTER BD CHK/ 



.ASCIZ /ERR OR HE ON RO CHK/ 



HAINOEC-ll-OIRKK-D MACYl 1 27(iee6) 04-OCT-T6 I6|«C PAGC 12% 
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sea 0140 



6731 












6732 


027765 


103 


042523 


("47440 


EM103I 


6733 


027772 


020116 


042122 


041440 




6734 


30000 


04SS10 


000 






6735 












6736 


030003 


123 


053513 


020103 


EH104t 


6717 


030010 


044504 


047104 


052047 




67 )S 


030016 


047440 


843536 


043133 




6739 


030024 


047514 


047440 


030116 




6740 


030033 


042133 


041440 


045510 




6741 


030040 


047440 


030122 


051127 




6742 


030046 


020134 


044103 


000113 




6743 












6744 


030054 


045532 


040504 


044440 


eNie5i 


674S 


030062 


041516 


046833 


053116 




6746 


030070 


020104 


051137 


047117 




6747 


030076 


020107 


047117 


051040 




6748 


030104 


020104 


044103 


000113 




6749 












67S0 


030112 


045533 


040502 


041440 


eMi06i 


6751 


030120 


040510 


043516 


030104 




6752 


030126 


043101 


043534 


020123 




6753 


030134 


042132 


041440 


045510 




6754 


030143 


000 








6755 












6756 


030143 


115 


046505 


051117 


EH107I 


6757 


030150 


020131 


047527 


042122 




6758 


030156 


B41440 


040510 


043516 




6759 


030164 


042105 


040440 


052106 




676<9 


030172 


051105 


051040 


020104 




6761 


030200 


044103 


000113 






6762 












6763 


010204 


047103 


051124 


0201 14 


eMii0i 


6764 


030212 


042122 


0301)1 


044504 




6765 


030220 


047104 


052047 


051440 




6766 


030226 


053105 


040440 


052106 




6767 


030234 


051 105 


053440 


052122 




6768 


030243 


(441440 


045510 


000 




6769 












677a 


030247 


110 


020105 


051117 


E»<llll 


6771 


030254 


042440 


051123 


047440 




6772 


030262 


0201 16 


051127 


020124 




677) 


030270 


044103 


00011) 






6774 












6775 


030274 


051127 


0531 11 


030105 


eMii2i 


6776 


030302 


044103 


041505 


02011) 




6777 


('30310 


051105 


051117 


000 




6778 












6779 


030315 


132 


0421 1 3 


020101 


r.MiDi 


6780 


030322 


0471 1 1 


05U0) 


047115 




6781 


»30)30 


0421 24 


05)44? 


047532 




6782 


030336 


04)516 


047440 


030116 




6793 


030344 


051127 


020174 


044103 




6784 


030352 


0001 1 3 








5795 












6796 


0)0354 


045522 


040502 


044440 


CHI 14 1 



.tSCTZ /CSe ON RD CHK/ 



.IkSCIE /RKWC OrON'T OVERFLO ON RD CHK OR HHT CHK/ 



,»8CIZ /RICO* WCRHHTO NROMO Oil RD CHK/ 



.ASCII /RICBA CHAN6D AFTER BD CHK/ 



.kSCIZ /MEMORY HORD CHANGED AFTER RD CHK/ 



.ASCII /CUTRL RDI DIDIt'T SET AFTER WBT CHK/ 



.ASCIZ /HE OR ERR ON HRT CHK/ 



.ASCII /WRITE CHECK EROR/ 



.ASCIZ /RKDA INCRHNTD WRONG ON HRT CHK/ 



,ASCtZ /RK«A INCRMKTO WRONG ON WRT CHK/ 



MAINOEC-Il-DZBKK-D MACYl 1 27(l0li6) 04-nCT-76 16106 PAGE 124 

DZRKKD.Pll 22-SEP-76 (»9|47 ERPOR MESSAGES 



6797 


03»362 


041516 


046522 


(1531 16 


6788 


0)C370 


020104 


051127 


H471 17 


6799 


)H)76 


020107 


047)17 


05)44fl 


679a 


0J04t)4 


052122 


■)41440 


045510 


6791 


0)0412 


000 






6792 










6793 


0)0413 


122 


041113 


•20101 


6794 


0)042*' 


047111 


051 103 


P471 15 


6795 


030426 


042124 


020054 


044527 


6796 


030434 


044134 


044440 


040502 


6797 


0)0442 


051440 


052105 


000 


6798 










6799 


030447 


127 


047527 


043516 


6900 


030454 


046440 


046505 


0511 17 


6801 


030462 


0301)1 


047514 


04050) 


6802 


030470 


044524 


047117 


041440 


680) 


030476 


040510 


043516 


043105 


6804 


0)0504 


05)440 


052111 


020110 


6805 


0)0512 


041111 


030101 


043521 


6906 


030570 


000124 






6807 










6808 


030532 


045522 


030461 


043040 


6809 


030530 


04311 1 


033516 


030124 


6810 


030536 


047111 


051124 


050125 


6811 


0)0544 


030134 


044127 


047105 


6812 


030552 


044440 


042504 


053440 


68|] 


030560 


051501 


0SI440 


053105 


6814 


30566 


000 






6815 










68)6 


0J0567 


122 


03051 J 


030061 


6817 


030574 


044504 


047104 


052047 


6918 


030602 


044440 


052116 


053533 


6819 


0)0610 


052120 


040440 


053106 


6920 


030616 


051105 


051440 


020113 


6821 


030624 


040537 


020133 


047111 


6822 


0306)2 


052111 


040511 


043534 


682) 


0)0640 


000104 






6924 










6925 


0)0642 


04152) 


020120 


042523 


6926 


0)0650 


02i»124 


043502 


047506 


6877 


0)0656 


042522 


051440 


042505 


6838 


0)0664 


02011 3 


047503 


050119 


6839 


030672 


042514 


042574 


000104 


6830 










69)1 


03070,a 


045522 


030461 


042040 


6832 


030706 


0421 1 1 


023516 


020134 


693) 


030714 


0471 1 1 


051 134 


050135 


6834 


0)0722 


020134 


043101 


043534 


68)5 


0307)0 


0201 23 


04552) 


041440 


69)6 


(1)07 36 


046517 


04612t1 


053105 


69)7 


0)0744 


042105 






6838 










6:1)9 


030747 


103 


0521 16 


046122 


6940 


9307'54 


05)i?40 


0515H5 


052105 


6941 


03076^ 


042^40 


0421 1 1 


02)516 


6912 


03077(1 


(120124 


0461 (!) 


04^505 



.ASCII /RKBA INCRMNTO> WITH IBA SET/ 



.ASCII /WRONG MEMORY LOCATION CHANGED WITH ISA SET/ 



BH117I .ASCII /RKtl CION'T IRTRUPT WHEN IDE WAS SET/ 



EM120I .ASCIZ /RKII OIDN»T INTRUPT AFTBR SK HAS INITJATH)/ 



.ASCIZ /SCP SET BEFORr SEEK COMPLETED/ 



.»SC1Z /RKll DIDN'T INTRUPT AFTER SK COMPLETED/ 



EM123I ,«5CTZ /CNTBL RESET DIDN'T CLEAR 'SCP'/ 
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6643 


030776 


020122 


051447 


050103 


6844 


031004 


000047 






6845 
6846 


031006 


045522 


030461 


042040 


6847 


031014 


042111 


023516 


020124 


6848 


031022 


047111 


091124 


0501 2S 


SS49 


031030 


020124 


843101 


043534 


6850 


031036 


020122 


042122 


043040 


6BS1 


031044 


047117 


000105 




6853 










6853 


0310S0 


047103 


0S1124 


020114 


6854 


031056 


042522 


042933 


030134 


6855 


031064 


044504 


047104 


093047 


6856 


031072 


041440 


0S1114 


0S1040 


6857 


031100 


043505 


0S1SU 


051134 


6858 


031106 


0(90 






6859 










6860 


031107 


122 


030913 


030061 


6861 


031114 


044504 


047 104 


053047 


6862 


031123 


044440 


0S3116 


053533 


6863 


031130 


052120 


040440 


030134 


6864 


031136 


050103 


030129 


043514 


6865 


031144 


042526 


w0Sil4 




6866 










6867 


0311S0 


045522 


030461 


044440 


6868 


0311S6 


052116 


093522 


052120 


6869 


031164 


042105 


040440 


020124 


6870 


031172 


0SU27 


047117 


020107 


6871 


031200 


050103 


020125 


042514 


6872 


031206 


042526 


000114 




6873 










6874 


031212 


042447 


091122 


041040 


5875 


031220 


052111 


020047 


044504 


6976 


031226 


047104 


052047 


051440 


6877 


031234 


052109 


044440 


020116 


6978 


031242 


045522 


051105 


000 


6979 










6880 


031247 


110 


020105 


051117 


6881 


031254 


042440 


051122 


042040 


6882 


031262 


042111 


02351b 


020124 


6883 


031270 


042^23 


000134 




6884 










6885 


031274 


045522 


051105 


042440 


6886 


031303 


047522 


003122 




6887 










6888 


031306 


054U6 


020103 


044502 


6^89 


031314 


020124 


044504 


047104 


699ii 


031322 


053047 


051440 


052103 


6991 


031330 


W0 






6892 










6393 


031331 


U2 


030S1 i 


020061 


6894 


031336 


044504 


047104 


052047 


6895 


031344 


044440 


052116 


052522 


6896 


031352 


052120 


047440 


030116 


6897 


031360 


047523 


052106 


042440 


6898 


031366 


047522 


000122 





EM124I .ASriZ /BKll OIOH'T IMTBBM AFTER BO DONE/ 



tHia9l .ASCII /CKTRL RESET OIDM't CtR REGISTR/ 



tM12i| .ASCIZ /PKll DIDR'T INTRUPT AT CPU LEVEL/ 



EM127I .ASeiZ /RKll IHTRUriCD AT WRONG CPU LEVEL/ 



EH130J .ASCI2 /'ERR BIT* DIDN'T »BT IN RKEB/ 



EH131I ,ASCIZ /HE OR ERR DIDN'T SET/ 



EM132I .ASCIZ /RKER EROR/ 

f:m133i .Ascrz /nxc bit didn't set/ 



EMI 34; .ASCIZ /RKll DIDN'T IHTRUPT ON SOFT EROR/ 
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6H99 














59a0 


031372 


042515 


02O13W 


044502 


SMI 35t 


.ASCII 


69^1 


031400 


051524 


044440 


041516 






fr'<;i2 


031406 


046522 


052116 


020104 






60("3 


031414 


051 1 27 


047117 


026507 






h9 3l 


031 422 


015522 


051503 


000 






69P<5 














t>906 


031437 


127 


05152« 


047040 


EH137I 


. ASCIZ 


% »(»7 


031434 


052117 


04144^ 


042514 






69c(fl 


031442 


051101 


000 








69H9 














(1 


031445 


104 


052101 


020101 


EH140t 


.ASCIZ 


691 1 


031452 


051105 


051117 


047440 






6*12 


031460 


020U6 


051 124 


047101 






691 3 


031466 


043123 


051 105 


043040 






691 4 


031474 


047522 


020115 


044904 






6915 


031502 


345523 


092040 


020117 






^■)16 


031510 


052124 


000131 








6917 














6919 


031514 


042047 


044522 


020126 


EH141I 


.ASCII 


691-) 


031522 


023443 


050040 


042522 






69?.1 


031530 


012523 


052116 


020094 






6971 


031516 


052502 


020124 


047916 






6972 


031544 


020124 


047111 


044504 






6923 


031552 


040503 


042524 


000104 






6924 


l«31560 


047040 


020117 


052502 


EM143t 


.ASCII 


692S 


031566 


054523 


047440 


020116 






5926 


031574 


0521 17 


042510 


020133 






6927 


031602 


040510 


043114 


047440 






5928 


031510 


(120106 


045522 


030095 






6929 


031616 


043065 


000 








69311) 














6911 














6912 














6913 














6934 














6935 




031>)22 








.EVEN 


6936 














6917 












.SBTTL 


6938 














69 39 


031622 


0H1 1 1 5 


001162 


000000 


Dill 


.WORD 


6940 














6941 


031630 


001115 


eyi 162 


001164 


DT2J 


.MOPD 


6942 


031636 


000000 










6943 














6944 


031640 


001 1 1 6 


001162 


001 164 


OI20I 


.MOBO 


6945 


031646 


0.»1 16b 


001171) 


000000 




6946 














6947 


031654 


a-M 1 1 5 


000000 




0T21I 


.WORD 


6948 












5949 


031660 


Oi'M ! b 


3f 1162 


C0U64 


DT25I 


.MOBD 


69'i0 


031666 


0H 1 1 6 6 


000000 








69S1 














6952 


011672 


0«I 1 16 


001 162 


001 164 


DT54I 


.WOPO 


69>S J 


l"3n0«> 


001 1 6b 


0«)1 170 


001 172 






6954 


031706 


0^1 1 74 


001176 


001200 







ASCII /HEX BITS INCRNNTD WRONG-RKCS/ 



ASCIZ /VPS NOT CLEAR/ 



ASCIZ /DATA EROR ON TRANSFER FROM DISK TO TTY/ 



ASCII /'OBIV •' PRESENT, BUT NOT INDICATED/ 



ASCII / NO BUSY ON OTHER HALF OF RK-05r/ 



WOBO SERRPC'tREG0>tREGl>IREG3,IRFG3,0 



WOPO »ERBPCfiREG0ilREGl»IBEG2,$PFc;j,|PEG4,IREG5,IREG6,«BEG7,0 
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8E0 01 «4 



6955 
6996 
6957 
&9SB 
6959 
6960 
69«l 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
697H 
6971 
6972 
697J 
6974 
6975 
6976 
6977 
6978 
6979 
69<i«> 
69ni 
69132 
69B1 
6994 
6985 
6986 
69R7 
6999 
69R9 
699» 
6 991 
6992 
699) 
6994 
6995 
6->96 
6997 
6999 
6999 

7HB2 
7tH)1 
7H94 
7HB5 
7006 
7v»«7 
7i108 
7^»9 
7»10 



031714 000000 



031716 
0)1724 
031733 
031740 

031745 
031752 
031760 
011766 

031773 
032000 
033006 

032011 
032016 
033024 
032032 
032040 



032053 
032060 
032066 
0)2074 
032102 
0321 10 

0)2111 
0)2116 
i')2124 

032127 
032134 
032142 

032147 
0)3154 
032162 
0)2170 
i')2176 

0i2177 
037204 
0)2212 
012220 

0)2225 



020040 
051040 
020104 
041505 

040 
020040 
052103 
041505 

040 
020040 
042126 

040 
020040 
020123 
042513 
051040 



040 
020040 
051503 
045522 
020040 

000 

040 
020040 
051504 

040 
020040 
047103 

040 
020040 
047123 
0521 30 

000 

040 
020040 
047524 
045522 



041S20 
043505 
020040 
042126 

050040 
042440 
020040 
04212b 

090040 
051040 

000 

050040 
051040 
020040 
020122 
053513 



033046 020040 041530 



050040 
020040 
020040 
051105 
045532 



050040 
020040 
000 

050040 
042523 
051124 

090040 
020040 
030124 
041455 



050040 
051440 
030122 
051504 



020040 
043101 
051040 

000 

020103 
050130 
051040 



020103 
041505 



020103 
041513 
051040 
020040 
000103 

000 

030103 
045522 
020040 
020040 
051504 



020103 
045522 



020103 
026503 
000 

020103 
051120 
047040 
052116 



020103 
041505 
020040 
000 



DH21I 
DH)0l 



040 050040 02010) DH44I 



.SBTTL ERROR HEkDERS 

.ASCIZ / PC REGkOD RECVD/ 



, ASCII / PC EXPCT RECTO/ 



,»SC12 / PC RECVO/ 



.ASCI a / PC RKCS RKE* RKWC/ 



.ASCIZ / PC/ 

,ASCIZ / PC RKCS RKER RKDS/ 



.ASCIZ / PC RKDS/ 



, ASCIZ / PC SEC-CHTR/ 



.ASCIZ / PC PRHt MXfCHT/ 



•ASCII / PC SECt^R RKDS/ 



.ASCIZ / PC RKCC' RKER RKDS RKDA/ 
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701 1 


0)2232 


020040 


051040 


041513 


7B12 


032240 


020123 


070040 


051040 


7013 


032246 


R42513 


020122 


020040 


7014 


0)2254 


051040 


04211 ) 


030133 


7015 


037262 


020040 


091040 


04311} 


7016 


P3227vl 


000101 






7017 










7018 


032272 


020040 


0415 20 


030040 


7019 


0)2300 


020040 


045522 


091503 


7020 


032306 


020040 


020040 


049523 


7071 


037314 


051105 


020040 


030040 


7022 


032322 


045522 


051504 


020040 


7023 


032330 


020040 


045522 


040504 


7021 


032336 


020040 


042040 


053123 


7025 


0)2344 


027043 


027056 


041456 


7076 


032352 


046131 


036056 


051904 


7027 


032360 


026513 


042101 


091532 


7029 


032366 


077076 


052523 


037132 


7029 


0)2374 


051456 


041505 


000 


70)0 










7031 


032401 


040 


041520 


020040 


70)2 


032406 


054105 


041530 


020073 


70)) 


032414 


051104 


070043 


030040 


70M 


032422 


054503 


0201 14 


030040 


70)5 


032430 


020040 


052523 


030123 


7.V)6 


0)2436 


020040 


051440 


041509 


70)7 


032444 


020040 


042522 


05310J 


7019 


032452 


020072 


051104 


030043 


70)9 


032460 


020040 


054503 


030114 


7040 


037466 


020040 


020040 


092533 


7041 


032474 


020122 


020040 


030040 


7042 


032902 


042523 


000103 




704) 










7044 


0)2506 


020040 


041520 


030040 


7045 


033514 


020040 


045922 


041937 


7046 


032522 


020040 


051040 


043113 


7047 


032530 


03«101 






7018 










7049 


0375)2 


020040 


041520 


030040 


7050 


032541' 


020040 


043523 


093103 


7051 


0)2546 


020122 


030040 


054105 


7052 


0)7554 


041520 


020124 


030040 


705) 


032562 


042522 


05I1R3 


000104 


7054 










7055 


0)2570 


020040 


041530 


030040 


7056 


032576 


02(1040 


094105 


041930 


7057 


032604 


020124 


920040 


043933 


7058 


032612 


»5)103 


020104 


043040 


7059 


032620 


04552) 


040455 


051104 


7060 


032626 


00012) 






7061 










7062 


0326)0 


020040 


041570 


020040 


706) 


0326)6 


020049 


020040 


051 104 


7064 


032644 


0531 1 1 


021440 


000 


7045 










7i166 


032651 


40 


050.M0 


0201 0) 



DH54I .ASCIZ 



RKDA DRV(....CyL.<DSK-ADR8>,8UP, .SEC.' 



.ASCIZ / PC' exPCI OR* CTb 



SEC RECVI DRI CYI. 



RKNC 



SECTR EXPCT RECVO/ 



EXPCT RECVO DSH-AOPS/ 



/ PC WORD • EXPCT 
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DHjeJ: .ASCJl / PC RKER/ 

DHte4l .ASCIS / PC RCCVO RKC«/ 



706' 




053440 


051 1 1 7 


020104 


7068 


032664 


020043 


020040 


0S410S 




032672 


041520 


020124 


020040 


7073 


037700 


042522 


053103 


000104 


7B71 










7t>72 




020040 


041520 


020040 


7073 




05 1 040 


0425 1 3 


000122 


7B74 










7P>75 


032722 


020040 


041520 


020040 


7070 




051040 


041 505 


0421 26 


7077 


0327 J6 


020040 




041513 




032744 


000123 






, J' 










7080 


32746 


020040 


04152<» 




708 1 


fl 17754 


020040 


046040 




7092 


032762 


020040 


020040 


054105 




032770 


041520 


020124 


020040 


7^a4 


032776 


042522 


053103 


000104 


708S 










7086 


033004 


020040 


041520 






033012 


051040 


04151 3 


000133 












loo 


033020 


020040 


041520 




7Hoa 


033^26 


020040 


04251 4 


042536 


_~ 


033034 


0201 1 4 


020040 


051040 


7092 


033042 


l»41513 


0001 23 














7H04 


033046 


020040 


041520 


020040 


7^95 




020^40 


051040 


041513 


7096 


033062 


020123 


020040 


051040 






0425 1 3 


020122 


042440 


Toioa 


033076 




041040 


052 1 1 1 


7ao9 


033104 


000 






7 100 










7101 


033105 


040 


050040 


020103 


7 102 


03311 2 


020040 


020040 


045522 




033120 


051503 


020040 


020040 


7104 


033126 


045522 


051 105 


000 


7105 










7106 


033133 


040 


050(^40 


020103 


7 107 


033140 


020040 


020040 


045522 


7108 


033146 


P51503 


020^40 


030040 


7109 


033154 


045522 


051 1 05 


020040 


7110 


033162 


020040 


045522 


040504 


7111 


t^)3] 70 








7112 










711 ■? 


(»3 n7i 


040 


050040 


030103 


7114 


033176 


020040 


042440 


050130 


7115 


031204 


052103 


020040 


051040 


7116 


033212 


041505 


042126 


020040 


7117 


H33220 


020040 


045522 


040503 


7118 


033226 


020040 


020040 


045523 


7119 


PH3234 


051503 


000 




71 J0 










7121 










7122 




a3324M 







DH107I .ASCII / PC LOC EXPCT REC»D/ 

DH117I »k5CIZ / PC RKCS/ 

DH126I .ASCIS / PC LETEL RKCA/ 

DH130t .ASCII / PC RKCS RKtR ERR BIT/ 

DH131I .ASCIZ / PC RKCS RKER/ 

DH133I .ASCIZ / PC RKCS RKER RKDA/ 

DH140I .ASCII / PC EXPCT RECVD RKBA RKCS/ 
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7123 
7124 
7125 
7126 
7137 
7128 
7129 



0^3240 000400 



fDATA BUrrER 
OUTBUF: .BLKH 256. 



tfHIS 256 WORD RUrrER IS rOR 
lOATA TRANSrERS FROM AND 
ttb THE DX8K. 



MklNDCC 


-11-DZRKK-D 


MACTll 27(1006) 04-OCT 


•76 16106 


PAGE 132 




DZRKKD.PII 22-SEP-76 


•ei47 


SYMBOL 


TABLE 






BAOtNT 


0114526 


CB • 


000015 


DT30 


031640 




BAOTMQ 


004462 


CRCTRN 


021316 


DT21 


031694 


FM41 


BDAfI 


0211402 


CPLr ■ 


000200 


DT26 


031660 


rM4 J 


BD*0 


020764 


DDISP • 


177970 


DT54 


031672 


U44 


60*4 


020774 


ODPCH 


001410 


EFLGt 


001 370 




BlTil ■ 


000001 


DELAY ■ 


104417 


ENTVEC* 


000030 


rlilfc 


BITd0 ■ 


000001 


DELA.Y 


021572 


EM108 


027654 


rM47 
ru^a 


BITai ■ 


000302 


DH100 


0326S1 


eHi0i 


027677 


SmIi 


BIT02 ■ 


000004 


DH103 


032706 


EH103 


027741 




BITBl ■ 


000010 


DH104 


032722 


EH103 


027765 




BIT04 ■ 


000020 


DHt0T 


032746 


EN104 


030003 




BIT05 ■ 


000040 


DHlp 


033004 


EM109 


0300S4 


EM54 


BIT06 ■ 


000100 


DH126 


033020 


EM 10* 


030113 


EM55 


BITBT ■ 


000200 


OH130 


033046 


EM 107 


030143 


EM56 


BIT0B ■ 


000400 


DH131 


033105 


EMU 


039266 




BITB9 • 


001000 


DH133 


033133 


EMI 10 


010304 




BlTt ■ 


000002 


DH14 


032011 


EHIU 


030347 


tM6 1 


BITIU ■ 


002000 


DH140 


033171 


EM113 


030274 


CM62 


BITtI ■ 


004300 


DH2 


031716 


EM113 


030315 


EM63 


BIT12 « 


010000 


DH21 


033046 


EMI 14 


030394 


EM64 


BITll ■ 


020000 


DH30 


0330S3 


EM115 


03041 1 


EM65 


B1TJ4 ■ 


040000 


DH34 


032111 


ENil6 


030447 


EM66 


BIT15 ■ 


100000 


Dh35 


032127 


EM117 


030522 


EM67 


BIT2 ■ 


000004 


DH36 


032147 


EH12 


025300 


EM70 


BIT3 ■ 


000010 


DH4 


03174S 


EM120 


030567 


EH71 


B1T4 ■ 


000020 


DH40 


032177 


eH131 


030643 


EM73 


BITS » 


000040 


DH44 


033225 


EMt32 


030700 


EM73 


PIT6 • 


000100 


0H5 


031773 


EH133 


039747 


tM74 


BIT7 ■ 


000200 


0HS4 


032372 


EM124 


031006 


CM79 


BITfl ■ 
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